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Usposób nb uiibusb 


Wirus komputerowy jest w dalszym 
cięgu tematem nr 1 w rozmowach łudzi 
zajmujących się profesjonalnie kompu¬ 
terami. Ponieważ zalicza się do nich ró¬ 
wnież zespół „Bajtka”, więc z wątpli¬ 
wą satysfakcją mam okazję zakomuni¬ 
kować, że również do naszego redak¬ 
cyjnego PC przedostał się już wirus. 
Wprawdzie zbytnio nie narozrabiał, ale 
psuje nam krew i zabiera czas. 

Zanim ten numer dotrze do Czytelni¬ 
ków, zapewne damy już sobie z „na¬ 
szym" wirusem radę. 

Wyszło przy okazji na jaw, że zacofa¬ 
nie cywilizacyjne Polski, przejawiające 
się brakiem sieci komputerowych, oka¬ 
zało się UJ tym jednym przypadku plu¬ 
sem. Bo aż włosy nam się jeżą na gło¬ 
wie na myśl, że nasze komputery były¬ 
by sprzęgnięte w sieć! Futurolodzy wy¬ 
myślili kiedyś pojęcie „szansy spóźnio¬ 
nego przybysza". Otóż w tym jednym, 
jedynym przypadku, rzeczywiście coś z 
tego zapóżnienia mamy. Choć, szczerze 
mówiąc satysfakcja z tego wątpliwa. 

Japończycy natomiast wpadli w pa¬ 
nikę. W ich naszpikotoanym kompute¬ 
rami i oplecionym pajęczyną teleinfor¬ 
matycznych połączeń kraju, pojawienie 
się wirusa zaczęło pachnieć narodotoą 
katastrofą. Żeby jej zapobiec, japońskie 
ministerstwo Przemysłu i Handlu Za¬ 
granicznego słynne MITI, powołało 
specjalną grupę fachowców, dysponu¬ 
jącą nadzwyczajnymi uprawnieniami m 

Jak informuje pan Sejdzi Hagiwara, 
główny spec od komputerów w MITI, 
grupa ta dostała za zadanie zidentyfi¬ 
kować wirusa do końca 1988 roku, wy¬ 
produkować „lekarstwo" — czyli pro- 
gram-zabójcę oraz dokonać skutecznej 
„dezytiseksji" sieci komputerowej Kra¬ 
ju Kwitnącej Wiśni. 

Równocześnie, ponieważ Japończycy 
nic są takimi naiumiakami, żeby wie¬ 
rzyć w jakikolwiek monopol, nawet 
naukowy, powołano konkurencyjną 
grupę i postawiono jej to samo zadanie. 
Żeby było ciekawiej, grupę tę wyłonio¬ 


no spośród komputerowej czołówki 
korporacji „Nixon Denki", w której 
sieciach po raz pierwszy w Japonii wy¬ 
kryto wirusa. Było to w sierpniu 1988 
roku. Od tego czasu informacje o wiru¬ 
sie napłynęły również wielu innych 
firm. Ale pan Sejdżi Hagiwara jest 
przekonany, że systemowa, prowadzo¬ 
na z rozmachem akcja przeciwwiruso- 
wa powinna szybko dać efekty. 

Za to UJ Stanach Zjednoczonych wi¬ 
rus komputerowy już tak się rozpo¬ 
wszechnił, że Ministerstioo Obrony 
USA musiało podjąć decyzję o zabloko¬ 
waniu wszystkich linii teleinformatycz¬ 
nych łączących jawną sieć komputero¬ 
wą Pentagonu z sieetą naukowo-badaw¬ 
czą USA. „Podjęto tę trudną decyzję — 
stwierdził „New Jork Times” — gdy 
stało się jasno, że właśnie tą drogą do 
komputerów w wielu strategicznych 
obiektach obronnych USA, przedostały 
się nieznane programy". 

Wścibscy dziennikarze amerykańscy 
ustalili, że konkretnie zablokowano 
sieć „Milnet”, sprzęgającą setki kom¬ 
puterów Pentagonu, korporacji i uni¬ 
wersytetów całego kraju. „Milnet” kil¬ 
koma kanałami wchodzi do potężnej, 
już czysto wojskowej, sieci „Arpnet”, 
tej lołaśnie, która stała się główną ofia¬ 
rą ataku wirusa na początku listopada 
1988. Zdezorganizowana została wów¬ 
czas praca około 6000 komputerów. 
Poniesione przez Pentagon straty oce¬ 
nia się na 95 milionów dolarów. 

Fachowcy z Pentagonu przystąpili 
obecnie do szczegółowego sprawdzania 
wszystkich elementów zabezpieczenia 
swoich sieci komputerowych, aby mak¬ 
symalnie wyeliminować możliwość 
przeniknięcia do nich jakichkolwiek 
intruzów. Jeśli natomiast chodzi o po¬ 
szukiwania nieznanego programisty — 
który sparaliżował sieć, to, jak donosi 
„New Jork Times", bardzo sprytnie za¬ 
tarł on wszystkie ślady. 

Waldemar Siwiński 




.BAJTEK" — MIESIĘCZNY 
DODATEK DO .SZTANDARU 
MŁODYCH" 


ADRES: C'.-6B7 Warszawa, ul. 
Wspólna 61. Tal. 21-12-05 Przrwod- 



damar Siwiński (z-ca redaktora na- 
czalnago „SM" — kiarownik zaspołu 
, Bajtka"), Grzagorz OnichimowskI 
(sakratarz radakdi .Bajtka"), Ro¬ 
man PoziMńskl (kiarownik działu 
klandw), Krzysztoł Czarnak, Sławo¬ 
mir Gajda (rad. tachniczny), Andrzaj 
Pllaszak. Sławomir Polak Wanda 
Roszkowska (opr. graficzna), Kazl- 
mlarz Tregar Marcin Waligórski, 
Roman Wojciacłłowski. Zdj^ia w 
numarza; Laopold Dzikowski 
klany radaguig: 

Commodora — Klaudiusz Dybows¬ 
ki, Dominik Falkowski 
Amstrad-Schnaidar — ,lonasz May- 
ar 

Spactrum — Marcin Przasnyakl 
Atari — Wojdach Zlantara, Sarglusz 
Piotrowski 

Fotoskład — Tadsusz Olczak, 
Montaż otfsatowy — Grażyna Oata- 
azawska, 

Korekta — Maria Krajawska, Zofia 
WOltańska 

WYDAWCA: RSW .Prasa-Kslgż- 
ka-Ruch” Młodzieżowa Agencja Wy¬ 
dawnicza, al Stanów jednoczo¬ 
nych 53, 34-0?? Warszawa. Telefo¬ 
ny Centrala 13-20-40 do 49. Redak¬ 
cja Reklamy 13-20-40 do 49 w. 403, 
414. 

Cena 150 zł. 

Skład technika CRT-200 przyjoto- 
walnia offsetowa I druk. PRASOWE 
ZAKŁADY GRAFICZNE RSW „PRA- 
SA-KSliUKA-RUCH" w Ciechano¬ 
wie, ul Sienkiewicza 51. 

Nr zlecenia 055528 n 150.000 egz. 
U-113 


• Dowiecie się, ile bitów ma „Bajtek" 

• Zwiedzicie wraz z nami Kotońskie targi „Orgatechnik" 
oraz wystawę „Informacja 89” 

• Poznacie dalsze tajniki monitorów 

• Przekonacie się o tym, jak pożytecznym urządzeniem jest 
modem 

• Ponadto w numerze 1/89 znajdziecie m.in.: mapę „Uni- 
versal Hero", kalendarz-niespodziankę, mikrociekawostki 
i wiele innych atrakcji 


Wszystkim naszym 
Czytelnikom wspaniałego, 
optymistycznego 
roku 1989, 
najciekawszych 
programów i najlepszych 
komputerów życzy 
„Bajtek” 
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Komu zabrakło czasu lub 
zdolności, by namalować w 
domu laurkę przy pomocy 
pędzla i farb, mógł to zrobić 
na miejscu, korzystając z 
komputera i drukarki. Efekty 
były wspaniałe, o czym 
zapewniali nas obdarowani. 

Ażeby nasi szanowni 
pedagodzy czuli się jak u 
siebie w szkole, 
zorganizowaliśmy — 
korzystając z pomocy PZ 
Karen — prawdziwa klasę 
szkolną z ławkami, tablicą i... 
komputerami na każdej 
ławce Trzeba przyznać, że 
zainteresowanie nauczycieli 
komputerową klasą co 
najmniej dorównywało 
zainteresowaniu uczniów. 

Miłym i oczekiwanym przez 
wielu naszych Czytelników 
momentem było losowanie 
głównej nagrody w 
„Konkursie z 
Szesnaściorem”, 
mikrokomputera Atari 65 XE 
z magnetofonem, 
ufundowanego przez PZ 
Karen. Przypomnijmy, że 
szczęśliwym posiadaczem 
tego sprzętu został Artur Zeh 
z Lublina 


14 października był nie 
tylko „Dniem Bajtka” 
podczas tegorocznej 
wystawy MikroEXPO 88. By’ 
to również — a właściwie 
przede wszystkim — „Dzień 
Nauczyciela”, święto 
wszystkich pedagogów. Im 
więc właśnie postanowiliśmy 
poswięcic najwięcej uwagi, 
tym bardziej, że myślą 
przewodnią całej wystawy 
były edukacyjne 
zastosowania komputerów. 

Nauka nauką, ale w takim 
dniu należy się trochę 
odpoczynku, kwiatek dla Pani 
i Pana, a także — jakby 
inaczej — piękna laurka. 








KLAN ATARI 




Dzięki wiadomościom zawartym 
w „Bajtku" przestałem bać się 
przerwań i napisałem program w 
języku maszynowym, który jest 
wykonywany co 1/50 sekundy w 
czasie przerwania synchronizacji 
pionowej. 
Opracowana przeze mnie 
procedura może wykonywać 
proste melodie (do 93 nut), lecz 
nie przeszkadza w normalnej 
pracy Basica. Można więc 
wykorzystać ję do uzyskania 
podkładu muzycznego we 
własnym programie, zaś przy 
pisaniu programu może ona umilić 

pracę. 

Dla uzyskania takiego efektu 
trzeba wpisać zamieszczony 
program i uruchomić go. Program 
ten jest potem zbędny i można go 
skasować instrukcję NEW. 
Przerwanie pracy programu 
następuje po naciśnięciu klawisza 
RESET lub po wpisaniu POKE 
548. 138: POKE 549. 194. 
Ponowne włęczenie muzyki 
uzyskuje się po wpisaniu POKE 
548.0; POKE 549, 6. 
Jeśli chcemy uzyskać innę 
melodię, to trzeba wpisać do 
komórki 1541 liczbę nut 
pomnożoną przez 2 (maksymalnie 
186), a do komórki 1582 wielkość 
„ _ pauzy między nutami 
(maksymalnie 255). Teraz jest to 
odpowiednio liczba 132 w wierszu 
90 i trzecia liczba 0 w wierszu 
100. Następnie trzeba zmienić 
zawartość instrukcji DATA od 
wiersza 120. Kolejno trzeba tam 
wpisać dla każdej nuty wysokość 
dźwięku (wartości takie jak w 
instrukcji SOUND) i czas jego 
trwania. Na końcu w wierszu 70 
wpisujemy graniczną wartość pętli 
FOR/NEXT odpowiednią dla 
liczby nut wprowadzonych do 
instrukcji DATA. 
Dla Czytelników 
zainteresowanych 
programowaniem w języku 
maszynowym podaję dodatkowo 
źródłowy wydruk procedury w 
asemblerze MAC/65. 

Maciej Kempiński 
(lat 15) 
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MX 


LE 

LS 

PD 


DY 


MP 


XH 


10 REM MUZYKA W PRZERWANIACH 
20 REM Maciej Reaplnakt 
30 REM Copyright (c) Baj tek 
40 REM 

50 FOR I>1536 TO 1604iREAD AiPOKE l,Ai 
NEXT I 

60 POKE 203.OlPOKE 204,OlPOKE 205,0 
70 FOR l«1605 TO 1736:READ AiPOKE I.Ai 
NEXT I 

80 POKE 548,OlPOKE 549,6 

90 DATA 8,72,166,203,224,132.240,23,16 

9,69.6,141,0,210,169,234,141,1,210,165 

. 205,221,70, 6, 240, 12, 230, 205 

100 DATA 76,64,6,169,0,133,203,76,84,6 

,169,0,141,1,210,165,204,201,0,240,5,2 

30,204,76,64,6,169,0,133,204 

110 DATA 133,205,230,203,230,203,40,10 

4,76,136,194 

119 REM DANE DLA MELODII 

120 DATA 40,7,45,7,47,7,0,7,40,7,0,7,2 
8t 7,0, 7, 23, 7,0,7, 26, 7, O, 7, 26, 7,0, 20, 29 
,7,31,7,35,7,0,7,29,7,0,7,31,7 

130 DATA 0.7,35.7,0,7,40,7,0,34,35,7,0 

,7,45,7,0,34,40,7,0,7,47,7,0,34,45,7,4 

8,7,53,7,0,7,53,7,0,7,35,7,0,7 

140 DATA 35,7.0,7,40.7,0.34,35.7,0,7,4 

5,7,0,34,40,7,0,7,47,7,0,34,45,7,48,7, 

53,7,0,7,53,7,0,7,47,7,0,7 

150 DATA 47,7,0,7,60,7,0,27 


0100 

;Muzyka 

w przerwaniach 

0110 

;Maciej 

Reinpinski 

0120 

;Copyright (c) Bajtek 

0130 

f 


0140 

AUDFO = 

tD200 

0150 

AUDCO « 

tD201 

0160 

EXITVBL 

* tCZBA 

0170 

LICZNIK 

= 203 

0180 

PAUZA = 

204 

0190 

DŹWIĘK 

= 205 

0200 

NUTY = 

80645 

0210 

• 

f 


0220 

Sa 

80600 

0230 

m 

9 


0240 

PHP 


0250 

PHA 


0260 

LDX 

LICZNIK 

0270 

CPX 

il32 

0280 

BEQ 

SKOKI 

0290 

LDA 

NUTY,X 

0300 

STA 

AUDFO 

0310 

LDA 

8234 

0320 

STA 

AUDCO 

0330 

LDA 

DZWIEK 

0340 

CMP 

NUTY+1,X 

0350 

BEQ 

SK0K2 

0360 

INC 

DZUIEK 

0370 

JMP 

END 

0380 

SKOKI LDA to 

0390 

STA 

LICZNIK 

0400 

JMP 

END 

0410 

SK0K2 LDA iO 

0420 

STA 

AUDCO 

0430 

LDA 

PAUZA 

0440 

CMP 

80 

0450 

BEQ 

SK0K3 

0460 

INC 

PAUZA 

0470 

J+1P 

END 

0480 

SK0K3 LDA ttO 

0490 

STA 

PAUZA 

0500 

STA 

DZUIEK 

0510 

INC 

LICZNIK 

0520 

INC 

LICZNIK 

0530 

END PLA 


0540 

PLP 


0550 

JMP 

EXITVBL 


LONY 

Istniejąca w Action! procedura Fili () wypełnia 
pole w prawo od rysowanej linii (jak XIO 18 w 
Basicu). Utrudnia to znacznie zamalowywanie 
skomplikowanych kształtów. Wady tej nie po¬ 
siada procedura Paint (). 

Procedura Paint () jest oparta na algorytmie 
opisanym w „Młodym Techniku" 11/85. Po¬ 
trzebuje ona do pracy znacznego obszaru pa¬ 
mięci, co ogranicza jej wykorzystanie do niez¬ 
byt dużych obszarów. Mimo tego utrudnienia 
jest ona bardzo pożyteczna i na pewno znajdzie 
miejsce w bibliotece każdego programisty. Do¬ 
łączona do niej procedura Demo () umożliwia 
sprawdzenie działania Paint (). 

Andrzej Postrzednik 


iZanalowywanle obszaru 
lAndrzaJ Postrzednik 
;Copyrlght (c) BaJŁek 

MODULE 

CARD ARRAY xw(1000) 
BYTE ARRAY yw(lOOO) 


CARD FUNC Oko(CARD ł,x BYTE y) 

IF Locate(X,y)«0 TREN 
Plot(x,y) 1««+1 
xw(1)*x yw(1)«y 
FI 

RETURN(1) 


PROC Paint(CARD x BYTE y) 

CARD i-COl 

UH ILE 1 
DO 

i>Oko(i,X,y) 

IF i«0 THEN RETURN FI 
x=xw(l) y*yw(ł) ł««-l 
x*=-l l>Oko(i,x,y) 
x>«« + 2 i=Oko(i,x,y) 
x---i y*«-i l«Oko(l,x,y) 
y = = + 2 
OD 

RETURN 


PROC Deino( ) 

Graphics(7) coIor=l 
PlotdO, 10) DrawTo(80,20) 
DrawTo(60,60) DrawToOO, 50) 
DrawTo(20.30) DrawTo(10,10) 
coIor=2 
Paint(45,20) 

PrlntE("NaclsniJ START") 
WHILE Peek(53279)<>6 DO OD 
RETURN 











KLAN ATARI 


POŻncaNC MOCCDUM 


Pisanie programu w języku Action! polega 
przede wszystkim na umiejętnym zestawieniu od¬ 
powiednich procedur. Każdy szanujący się pro¬ 
gramista musi więc mieć bogatą bibliotekę tych 
procedur. Aby nie wymyślić wszystkiego od nowa, 
otwieramy kącik, w którym będziemy publikować 
proste procedury. Liczymy także na wsparcie 
przez Czytelników. 

Rupocjrtcfny od (łwAcft prostych tututy iiMtMraiycznych—ABSISGN 
Rerwua z ruch zwraca watloićbcrnglodn) podane) k«!iy Wystarczywiec 
tyko sprawdat znak argjn«iUi I ztnenO go na przecmity. leili i»st ujemny 

I NT FUNC Aba(I NT k > 

IF k<0 THEN RETURN<-k> FI 

RETURN(k> 

Funkcia SGN zwraca waitoic octeślaiaca znaa podanego argumentu Jezei 
argumeni ie$( uyemny. lo wynKem bodzie hczba -1 a gdy dodatni, to • 1. Ola 
argurneritu zerowego reziMeir bodz« oczywiSoe zero 

I NT FUNC Sen(I NT k > 

IF k<0 THEN RETURN(-i> 

ELSEIF k>0 THEN RETURNCl) 

FI 

RETURN(0> 

Korzystnie Z pckazarie) wyź«i zasady mozeriiy Zbudować funi(qę odczylu- 
laco poziomy rudi joystiOa. Przy ruchu w lewo lutActa zwrOo wartość -1. w 
prawo -law położeniu rtMiamym 0. MoZna ai zastosować dwa wananty ro- 
zwtazama W p«rwszym akiidne potozeme loysocka odczytuieir/ korzystając 
z brtMlecznei runkgr Sbokjn), gJzie niest nunerem (oysbeka (Olue 1). Ponie¬ 
waż |»st M doktadne lo samo co Peeli|$278 *11). można zastosować bezooi- 
ledm odczyt wanota z reiestru RAM. Uzytemy w tym ceu dwuetemeiKoiM) 
tabkcy . Samo ustalenie kierunku ruchu jest bardzo proste wr rejestrze loysbc 
ka przy ruchu w lewo mogą ^ zntlezć wartoici 9.10 lub 11. przy ruchu w 
prawoS 6lub7.zaSwpdozemuŚrodkowymćwPozioine) —13. t4Ui 15. 
Osiauczrae piooeduta ma następująca poso: 

INT FUNC HStickCBYTE Joy> 

BYTE ARRAY port<2)>*278 

IF port<joy><a THEN RETURNU) 
ELSEIF port(Joy>>12 THEN RETURNĆO) 
FI 

RETURN<-1> 


Keco bandziej skompiwcwaria bgdzie lurwcga odczytuiaca pnnowe położe¬ 
nie joystidia. W odpowiedrwn rejestrze Odczytamy dla ruchu w gćrc wadoćd 
6. IOlubl4.adlaruchuw(M5.9lubi3.awpolazeniuneutiaini|in7.iiUi 
15. zauważmy jednak, ze w każdym z tych przypadićw waZne sa tyfio dwa 
najmłodsze bity rejesuu JezetuwzgiodneTiy lylkoH bity. eo uzyskamy odpo 
wiedniowaitoSai2,113 Teraz iizeba 10 wpisać do procedury i gotowe 

INT FUNC VStick<BYTE Joy> 

BYTE ARRAY port<2>w*27e 

BYTE i 

i -porte Joy >ti3 

IF i-1 THEN RETURNd) 

ELSEIF i-3 THEN RETURNCO) 

FI 

RETURN<-1> 

Kolejne preeedjry beda dotyczyły rożnych operap) graficznyeh Zaczmcmy 
od naiysowama prostokąta Jako parametry wejSoowe podamy współrzędne 
dwOch przeowlegiyoh ynerzchokow ich petozene względem siebie jest w 
łym pizypadku nieislotne Pomewaz maksymalna wanoOć wspókzednej pio¬ 
nowej wynosi 191 lliyb ósmy bez okna lessiowegn). to wystarczy zmenna 
typu BYTE Ola współrzędnej pozcmei wnieozrta lesl jednak zmenna typu 
CARO. gdyz w trybie Ósmym może ona osiagnoć waitoOć 319. Oo wykieślena 
samego prostokąta potrzeba tytno czMiy iri«. wipc procedura iesi bardzo pro¬ 
sta Dodatkowo zastosujemy w mej piaty parametr. klOry okieSH kolor rysowa¬ 
nej ramki. 

PROC FrmB«<CARD xl BYTE yl 

CARD x2 BYTE y2,c> 

color-c Plot<xl,yl> 

DrawToCx2,yl> DrawToCx2,y2> 
0rawTo(xl,y2> DrawToCxl,yi> 

RETURN 

MaRc juZ prosiokai bodziemy chctok wypełnić go solorem W lakm pizy- 
padKu me wyskarezjr prosta zanana oszatmej procedur DrawTo na Fi l^o- 
cedura wypenama zawarta w systeme operacyjnym Alan zawsze wypelma t- 
nieobr3Zuwpfav«)odnaiysowanegopunklu.Musimyw)eciprawdz<ezyk- 
i«e ogranczajłca wypekiane pete znaiJujo $i» z prawej strony, a lea ne. to 
zamenć waitoSo współrzędnych pewnych. Druga <istru<qa wanji^owa 
unienwżiwa Medne zamalowanie oorazu. gdy obe pionowe tme s< pok7- 
waja. Ponadto wior do wyperkana ne musi być tak) san jar kolor do rysowa¬ 
na Wprowadźmy wiec dodatkowy paiameu. łióry bedzie go definiował 


PROC Box(CARD xl BYTE yl 

CARD x2 BYTE y2.0,f> 

CARD BUW 

BYTE foolor-*2FD 

color-o foolor-f 
IF xl>x2 THEN 

•ux-xl xl-x2 x2-aux FI 
Plot<xl,yl> DrBwTo(x2,yl> 

OrawToCx2,y2> DrBwTo<xl,y2> 

IF xl<>x2 THEN Flll<xl,yl> FI 

RETURN 

Teraz przyszedł czas na narysowmokieflu Tozadarseiestznacznebar- 

dziej skcnpUiowane. rw będziemy wiec rozważać go szczegćtowoi Wystar¬ 
czy powiedzieć, ze zastosowany został algorytm rysowana Okręgu w oinio- 
kieninkawei symetn zmodytkowany przez usumeae łurftqi pierwiasfrowa- 
na. ktorejnemawAcaonr Wyprowadzerae tego algarytmubyio opisane w 
.KompiAeize'97S6 (kitowa procedura jest pokazana poniZ«|. Jej parametra¬ 
mi wejSciawyin sa wspćłrzedne Środka obega. jego piomcA 1 kdoi. klóiym 
bgdziewiykieSlony. 

PROC ClrolaCCARD aw BYTE ay.r.o) 

INT dx,dy,dxy,pdx,pdy 
color-c 

dx-0 pdx-r pdy-O 
DO 

dy-dx*pdy*pdy*l 
dxy-dy-pdx-pdx*l 
PloŁ<sx*pdx,ayepdy) 

Plot(Bx-pdx,ayepdy> 

Plot <Bx*pdx,ay-pdy> 
Plot<sx-pdx,By-pdy> 

Plot <BX*pdy,By*pdx> 

Plot <Bx- pdy,By*pdx > 

' Plot<BX*pdy,By-pdx> 

Plot <Bx-pdy,By-pdx > 
dx-dy pdy--+l 
IF AbB(dxy>*0<AbB(dy> THEN 
dx-dxy pdx---l 
FI 

UNTIL pdy>pdx 
OD 

RETURN 

W ten sposób zaczynając od maiemaiyiuaosziismy do lysurku Koizysiasac 
z po«',«szych procedur można napisać prosty progian graficzny obsijgtwany 
przy pomocy joystoka Aletojuzsamodzielrto—IfazTy.Czyielnku 

Wojciech Zientara 


NL 1 REM R NAMER R - Robert Findera 
PA 2 DIM B*(120) 

PK 3 ? CHRe(125>:OPEN •1,4,128,"C;":INPUT 
BeiPOSITION 1,1:? "PROGRAM:”: 

CLOSE tl 

TF 4 POSITION 3,15:7 "Czy eae wczytac ten 
prograe? IT/N]":OPEN §3,4,O,"K:":GET 
• 3,A:CLOSE 13: IF A084 THEN 3 
TR 5 POSITION 5,17:7 "Udani J START 1 OPT 
lON..." 

YC 6 IF PEEK(53279) 02 THEN 6 
UR 7 A-USR(58487) 



Jedną z większych wad kom¬ 
putera Atari jest brak możliwo¬ 
ści nazwania programów i gier. 


Napisany przeze mnie program elimi¬ 
nuje tę wadę. Przyalosowany lest do na¬ 
zywania programów napisanych w 
asemblerze i ładowanych przez START i 
OPTION. Jest całkowicie napisany w Ba- 


sicu (Ładowanie-CLOAD, uruchamianie 

— RUN). Zaraz po uruchomieniu odzy¬ 
wa się pojedyńczy ,beep‘ sygnalizujący 
gotowość do wczylania nagłówka pro¬ 
gramu. Zaraz po nagłówku należy sko¬ 
piować program lub grę (razem z loade- 
rem jeśli taki jest). 

Osobiście radzę skopiować program 
zaraz po pierwszym rekordzie nagłówka 

— nie czekając na rekord kończący. Po 
wczytaniu nazwy, program pyta się czy 
ma załadować daną np. grę. Jeśli tak, na¬ 
leży wcisnąć .T" a następnie START + 
OPTION i po usłyszeniu „beep" dowol¬ 
ny klawisz — program będzie ładowany. 
W przypadku decyzji odmownej kompu¬ 
ter wraca na początek programu. 

Program lesł prosty i wydaje mi się. że 
nie wymaga szczegółowego omówienia. 


Najwygodniej będzie nagrać go na po¬ 
czątku każdej kasety i później szukać 
ewentualnego programu do wczytania. 

Podaję teraz sposób tworzenia nagłó¬ 
wka—należy napisać 
OPEN*1,8.128..C:"; 


PRINT#1. .nazwa*: CL0SE#1 
po czym wcisnąć RETURN. Usłyszymy 
podwójny „beep" i po wciśnięciu dowol¬ 
nego klawisza komputer wgra nagłówek, 
wek. 

Robert Findera 
BAJTEK12/88 5 









KLAN ATARI 


LICZBY 

ZESPOLONE 


Liczby zespolone są mało znanym 
uczniom szkół średnich działem ma¬ 
tematyki (praktycznie tylko uczniom 
klas o profilu matematyczno-fizycz¬ 
nym). Tym jednak, którzy poznają li¬ 
czby zespolone przydatny może być 
mój program. 


Realizuje on najczęściej wykonywane działania 
na liczbach zespolonych takie jak; mnożenie, dzie¬ 
lenie, dodawanie, odejmowanie, potęgowanie zes¬ 
polone. pierwiastkowanie, ponadto wylicza loga- 
ryim naturalny, funkcje sinus i cosinus, exponent. 
moduł i liczbę sprzężonę oraz zamienia postać al¬ 
gebraiczną na trygonometryczną i odwrotnie. W 
opcjach „DODAWANIE" i „MNOŻENIE" program 
pyta o ilość liczb, na których będzie wykonywanie 
działania. Umożliwia to dodawanie lub mnożenie 
wielu liczb zespolonych (jednak nie więcej niż 17). 

Program mój został częściowo oparły na algoryt¬ 
mach zawartych w książce .2® numerycznych pro¬ 
gramów w języku BASIC” Andrzeia Witowskiego i 
Jakuba Tatarkiewicza. 

Jeszcze kilka uwag na koniec. Ze względu na 
możliwości obliczeniowe Atari nie wszystkie dane 
będą akceptowane przez program, o czym użytko¬ 
wnik jest informowany odpowiednim komunika¬ 
tem. Większość wyników podawana jest z doklad- 
rłoścrą do 0.001. W opcjach zmiany postaci z alge¬ 
braicznej na trygonometryczną i odwrotnie ułamki 
za kropką oznaczają dziesiętne i setne stopnia, a 
nic minuty i sekundy. 

Dariusz Tabaczyński 
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M 

ET 

M 

M 


10 EEN LICZBY ZESPOLONE 
20 lEH OarittSZ TObOCZOMkł 
SO BEN cepyriokt 1900 Bojtok 
100 BEN 

110 OZH aClB),BClB).C$Cl),0$Cl):SETC0L 
OB 2,0.1:SCTC0LBB l.B.llłPOKE 02,2 
120 BEH KIM. 

HO ? "o ą - OOOaWMIIE-.** 

rmMMNiĆ 

140 ? ”«i - 



I**:? t - OZICLCM 


K 

KB 


EH 


LB 


OT 

PM 

:t 

pp 

wt 


m 

BO 


'tiC 


,.“l ir IMI 

I£K» » " ■ ■ 

14S T “ 

110 ? D - MDOIIL I LICZBO SPBZEZOBA-IT 
■■4i - LOfiOBTTH BATUBOLNY LICZBY ZESPO 
L.“ 

IM ? -40 - EKPOBEHT**:? -4i - SIBBS I 
COSIHUS LICZBY ZESPOLONEJ"!? "li - POT 
ECA ZESPOLONA"!? "4fi - ZAMIANA NA "I 
170 ? "POSTAĆ TBYCONONETBYCZNA"!? - 
ZAMIANA HA POSTAĆ ALCEBBAICZBA"!? ~4i 
- PICBUASTCR Z LICZBY ZESPOLONEJ" 

IN CLOSE ttl!0PEH B1,4,0, "K!"!TBAP 100 
iPOSITION 11.21!? 

ET B1,C:CL0SE ttl 
190 ON C-47 COTO 22B,200.31B,IM,400,4 
40,470,500,970.010 
200 OH C-99 MTO 7M,100,BOO 
210 COTO IBO 
220 BEH OOOANAHIE- 
2J0' ? "B":? 

P':? :1BAP 220:? "iłp liczb 
z«spol*nych ckcpsz 4o4>c";:IliPNT N!? 
240 GOSBB 1270:GOSIIB 10M!C0SBB 2O0:CO 
SilO 270:ZF B=2 THEN K=B!C0SUB 1290:? " 
łł Z1*Z2"!G0T0 1100 
250 R=10-łCH>=10):G0SIIB 1290:? "ttZl«.. 
.4Z";H:C0T0 1100 

200 A=0:P0R L=1 TO B:A=B*ACLl:NEXT LlA 
CH*1)=A:BETUBN 

270 B=0;F0B L=1 TO H:B=B*BU) :NEXT L!B 
CH*1)=0;BETHBH 
2B0 BEH ODEJHOtMHIE 
290 ? 

:? :H=2:C0SHB 1050:ACII=ACli-AC 


2):BC3)=BCl)-BC2):Rri:C0SUB 1290 
0« 300 ? "ttZl-Z2"!C0T0 1100 
HT 310 BEN HNOZ EWIP 

zcspelenyck ckcpsz MMzyc”;:lNPBT N:? 
ir 330 COSUB 127BIC0SBB 1BS0:ACH*1)=AC1)« 
AC2}-BCllHBC2):BCH*1)=AC1)«BC2)*AC2)«B 
C1):IF H>2 TNEH GOSUO 1220 
FN 340 IF H=2 TNEH R=9!C0SHB 1290:? "tt 
Z1»Z2":G0T0 1100 

EZ 350 R=10*IH>=10):C09N0 1290:? "«tZl».. 
.»Z":H:C0T0 1100 

RB 360 BEH OZIELEHIE _ _ _ 

PC 370 ? "N":H=2:? 

aBKZSBBHP':? :G0SiiB 10S0!IF AC2) 
=0 ANO BC2)=0 TNEH 390 
OL 300 C=AC2)«AC2)?BC2)«BC2)!ACI1=CAC1)«A 
C2)*BC1)NBC2))/C:BCI} = CAC2)«BU)-AC1)« 
BC2))/C:R=9:C0SttB 1290 
LZ 305 ? "łł Z1/ZZ":G0T0 1100 

LI 390 ? "łOZIELEHIE PBZEZ ZEBO JEST HIEN 
YRONALHC“:FOB L=1 TO BOO!HEXT L!C0TB 1 
20 

SO 400 BEH MOPBL I L.SPBZEZO Nfc. 

*• 410 ?- - 

CSHt‘:? :H=l:C0SHB 10S0:AC2)=Ańł :BC 
2)=-BC1):K=9!C0SDB 1290:? "łłłł _» 

BS 420 GOSHB 1140:? "łłłjzjr";:IF N002=0 
TNEH ? HOOlGOTO 1100 
KR 430 ? »SQRC“|N0»2;")":C0T0 1100 

DZ 440 BEH LOCABY TH BATUSALHY__ 

450 ? " 1—CTinaiif'Ml 
CaHi4":H=l:C0SHB 1050:IF AC1}=0 ARO 
BCllre TNEH 1250 

OB 450 lt:2:C0SliB 1170!K=9:GOSHB 1290:? "ł 
ł LHCZ)":G0TB 1100 
OL 470 BEH EBPON EHT- 

GB 400 ? __ 

iHB4":H=l:G0SUB 1050:TRAP 1260:14:2! 
GOSUO 1200:R=9:GOSHB 1290 
IJ 490 ? “łł EXPCZ)":C0T0 1100 


GT 

MF 


OB 

YS 


OE 


GH 

PL 

VF 

KR 


PV 


TK 

RY 


Mf 

CT 


MS 

HN 

BY 

SC 

ttX 

YE 

HX 

XI 

NV 

BH 

SO 


NN 

HH 


IH 

GK 


UH 

RB 


Jft 


Mł 


500 BEH SINUS I COS INUS _ _ _ 

510 ? “1^—aaijitJManB 

iHB4":H=l:G0SUB 1050:TRAP 1260:H:CX 

P CB Cl) ) : H: CH*1/H)/2: A C2) =imiH CA Cli) 

520 AC3)=N«C0SCAC1)1 

530 HnXPCBCl))!N=CN-l/N)/2:BC2)=H«COS 

CACD) !BCI)=-HNSZNCAC1)) :R:9:C0SHB 129 

0:? "łł SIHCZ)":? "ł C0SCZ):";!L=1 

540 IF A0SCAC3)»:1.0E-03 TREN ? SCNCA 

C1))HCIHTC10BO«SCNCAC1))NAC3)*B.1))/1B 

BB):X:l:G0TB 560 

550 IF AC3)<>0 TNEH ? AC3)t!X=l 

5M GOSHB 134B:CBTB 1100 

570 BEH POTĘGA ZĘy BL OHA 

580 ? " I— 

□■■P":N:2:G0SHB 10S0!TRAP 12M:IF A 
C1):0 AND BC1)=0 TNEH 1250 


590 ItltCOSUO llN:AC4)=AC2)t*AC3)-BC2) 
«BC1):BC4):BC2)«AC3)*AC2)NBC1):N=4:C0S 
U8 1200:H=2:R=4;G0SUB 1290 
MO POSITION 0.6:? "Z1AZ2":G0T0 1100 
610 BEH POSTAĆ TBYGONOH. 

620 ? "oaBZSBK3nŚBC^MM[r 

KLCSl4":R=l!GflkUB 10S0:0EG :iP acA= 0 
AND BCDrO TNEH 12M 
630 GOSHB 114B:AC2)=AC1)/HOO:BC2)=BU) 
/HDO 


635 IF AC2)<>1 ANO AC210-1 TNEH AC3)= 
-ATHCA C2) /SOBCl-AC2)NACZ)) ) 490:MTO 66 
0 

640 IF AC2)=1 TNEH AC31=O:G0T0 6M 
650 AC3)=1B0 

6M IF BC2)<>1 ANO BC2)<>-1 THEN BCI)= 
ATHC0C2)/S0BC1-BC2)«BC2)1)!G0T0 690 
670 IF BCZ)=1 THEN BCI)=90:G0T0 690 
6S0 BC3)=270 

690 0$="":IF AC2)<0 TNEH AC3)=1B0-AC3) 

:o$=«-« 


700 GOSUB 13N:ACI)=CIHTC100KAC3)40.1) 
)/100:P0SITI0N 0,5:? "Z="; 

710 IF HODZlO THEN ? "SBBC"; CINTClOOitN 
00240.l))/100i")";:C0T0 730 
720 ? CIHTC100rHN>040.1))/lM: 

730 ? ••«C"!05;"C05C"JACI)J")"J 
735 IF BC3»=0 TNEH ? "4iHSINC"; CIHTCl 
tonoC3)40.1)1/100;")) ~!C 

$="":G0T0 7M 


740 ? "-i«SIHC":UNT1100MNSCBCl))4e.l 

))/l 00 ;")) “:c$="-" 

750 ? ,"«":C$;"SIHC»;CIHTC100iiABSCBC3) 
)40.1))/1M)")=";BC2):? ,"ł"!0*;"C05C" 
:AC3);")="tACZ):C0T0 HM 
760 BEH^OSTAC^I^ĘBa^ ^^^^^ 

EEDHi ",» postać:*"!? ") Z:««CC0SC 
e)4il»SIHCB))" 

7B0 TBAP 7B0IP0SITI0N 4,7:? "0 HOOUL 
B:~::IHPUT HOO 

790 TBAP 790:P0SITIBH 4,9!? IkAT CN S 

TOPHIACH B<=0<1BB ) B="::1NPUT C!lF C 

<0 OB 0=100 TNEH GOTO 790 

BOO TBAP SBB:PBSITIOH 4,11:? "0 ZHAR 

FUNKCJI COSINUS "):IHPnT C$:IF C 

$<>“-" ANO C$<>"4" THEN 000 

010 TRAP B1B:POSITIOH 4,13:? "0 ZHAR 

FUNKCJI SINUS CBrt) ";:IHPHT 0$:IF 0$< 


TC 

RH 


KR 


EP 

FH 

GF 

NE 

X0 

JB 


FH 


>"4“ ANO 0$<>"-" THEN BIB 

B2B TRAP 40000:ZP C5="4" TREN C$=“" 

B3B OEG : AC1)=C0S CC)WH00!B C1)=SIHCC )NH 

oo:? 

? "łz:"; 


040 IP ABSCAC1))>=1.0E-0I THEN ? C$;S6 
H CA Cl))HCIHT CIBOOPSGH CAC1))«AC1)4B.1)) 
/1000;:X=3:GOTO B60 
B50 IF ACDOO THEN ? C5;ACl);!X=l 
860 IF 0$="-" THEH BC1)=-BC1) 

070 L=l:G0SU6 1350:? :GOTO 1100 

880 BEH PlEBiHA5TEK_ _ _ _ 

090 ? "t^—EEUaijromTiTrM 
iHB4":H=l: GOSUB 10M:0EG 
900 TRAP 9M:P0SITI0H 4,7:? ■fiSTOPIEH 
PIERłOASTKA CH=1,2.....14)"!? ,">H=":! 
IHPNT C 

905 IF C<0 OB 014 OB INTCOOC THEN 9 


XJ 910 GOSUB 1140:R=H00aC1/C):AC2)=AU)/N 
00:BC2)=BC1)/HOO 

NY 920 IF ACZ)Ol ANO AC2)0-1 THEN ACl)= 
-ATH CA C2)/SOB Cl-A C2)«A C2)))490:GOTO 95 
O 

PE 930 IF AC2)=1 THEH AC3)=0:MT0 950 

UO 940 AC3)=100 

HK 950 IF BC2)Ol ANO BC2)0-1 THEH BCI)= 
ATHCBC2)/S0RC1-BC2)«BC2))):MT0 900 

UO 960 IF BC2)=1 THEH BC3)=9O:MT0 900 

UY 970 BC3)=270 

HH 9M H=1:R=2!G0SHB 1290:? "łłlOSTOPIEH 
PIEBMIASTKA H=";C:? 

HK 990 FOR R=B TB C-l!ACR44)=B«C0SCCACl)4 
I60«R)/C):BCK44)=R»SIHCCAC1)4160»K)/C) 
!? "ZC";K41;")="j 

HY IBM IF ABS CA CK44))> =1.06-03 THEN ? SG 
H CA CK44))HCINT CIOOOASGN CA CR44))NA CR44> 
4B.l))/10M::X=l!MTe 1020 

SC IBie IF ACR44)0B THEH ? ACR44)::X=3 

BI 1020 L=R44:G0SUB 1358:IF CCB TNEH ? 

EZ 1030 X=B:REXT R:MT0 1100 

BL 1040 BEH CSuZuZZSCuSC 

api!iHiii3nag; 


ET 1050 BEH HPROHAOZANIE OAHYCN- 

IH 1060 ? ,"POSTAĆ: Z=A40«i":? :FeB L=1 T 

e N 

OJ 1070 TRAP 1070:? "A";L;"="):IHPHT A:AC 
L)=A 

ItC lOBO TRAP 1000;? "B";L;"=": !lNPttT B:BC 
L)=B 

TU 1090 BERT L:TRAP AMOBlRETURH 

CO liee BEH POtOtOT 00 MENU- 

00 1110 ? "ijSa - POłOtOT 00 KRCrcrPOKE 7 
64,255 

00 1120 IF PEERC7M)=2B THEH 120 

OL 1130 MTO 1120 

YC 1140 BEM HOOUL- 

FN 1150 H00=CAC1)«AC1)4BC1)«BC1)):IF H00= 
CSfi8CH00))A2 THEH H002=e:HBO=SORCNeO): 
RETURN 

Al 1160 H0O2=N60:H00=S0RCN00)!RETUBN 

RZ 1170 BEH LOGARYTH- 

UV IIN GOSUB 114e:ACH)=LOGCNOO):IF AC1) = 
e THEH BUO=1.57e796:RETIIBH 
PB 1190 RAO :eCH)=ATHCBCl)/ACl)):RETnN 

JS IZM REM ERPONEHT- 

VE IZie BCH)=EXPCACH))HSINCBCH)):ACH)=EXP 
CACH))NCOSCeCH)):RETURH 

BU 1220 BEH łOtOZEHIE- 

XC 1230 FOR L=I TO H:H=ACH41):ACH4i)=ACH4 
1) «A CL)-BCH41)MCL)!BCH41)=N«BCL)4ACL) 
«BCH41):NEXT L:RETUBH 

OB 1240 BEH OBSŁUGO BLEOON- 

OG 1258 ? "«)ZLY ARGUMENT Z1=0":F0R L=1 T 
O Bee:NCXT L:GOTO 12B 
VJ 1260 ? "4NYHIK Z POZA OOPUSZCZALHEGO Z 
AKRESU":FOR L=1 TO BM:HEXT L:MTe 120 
SF 1270 IF H<2 OB H>17 THEH ? :? "LICZBA 
OOHYCH Z POZA ZAKBESU":FeB L=1 TO BOB! 
HEKT L:POP :GOTe 120 
BB 1200 RETURN 

TJ 1290 BEH ORUK BOMIAZAHIA- - 

HZ 1300 ? "8 

ł*:? !F0R L=1 to R:x=e:'? "Z^L';"=^j^ 
ACDOe THEH ? AU)::X=3 
BK 1310 GOSUB 1358:RCXT L:X=0:L=N41:P0KE 
02.R:? :? “łZ="; 

RE 1320 IF ABSCACL))>=1.0E-ei THEN ? SGNC 
0 CL) )HCIHT CieeoOSGH CACD )l*Aa) 40.1) )/l 
eee::x=3:G0T0 1340 

FM 1330 IF ACDOe TREN ? Aa);!X=3 
GY 1340 GOSUO 135e:P0KE 02,2:? :RETURR 

KB 1350 BEH NYBOt ZNAKU- 

PR 1368 IF OBSCOa))>=1.06-03 THEH NCL)=S 
GH CB U) ) « CIUT CieOMSGH CB CL) )«B ai 40.1) 
)/lBM 

OT 1370 IF ABSCBUDOl TNEH OH SGNCBCD) 
424X GOSUB 1430,1410,1420.1430.1440,14 
50:RETURN 

PJ 1380 IF BCL)=-1 THEN ? "-i":RETNRN 

PR 1390 IF X=I THEN ? ”4i~:RETURH 

KO 1400 ? »i":RETnRH 

RA 1410 ? "e":RETURH 

BI 1420 ? "iA":BCL):RETURH 

VA 1430 ? "-i«";-BCD!RETURN 

TO 1440 ? !RETIieH 

TO 1450 ? "4iH":BCL):RETHRM 
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ATARI 

SAMOURUCHAMIANIE PRZEZ ENTER— 


Na zakończenie toczącej się od 
pewnego czasu na łamach „Bajt- 
ka” dyskusji o automatycznym 
uruchamianiu programów w Basi- 
cu prezentujemy jeszcze jeden 
sposób uzyskania tego efektu. 


Wykorzystane tu zostało specyficzne działanie 
instrukcji LIST i ENTER. Pierwsza z nich zapisuje 
program w postaci kodów ASCII (tak jak na ekra¬ 
nie). Podczas odczytu zapisanego w ten sposób 
programu przy pomocy instrukcji ENTER kolejne 
wiersze programu sa umieszczone w pamięci do¬ 
kładnie tak samo, jak podczas wprowadzania z kla¬ 
wiatury. Jeżeli do programu zostanie dodany 
wiersz bez numeru, to zostanie on wykonany naty¬ 
chmiast po odczytaniu. 

Gdy w tym wierszu znajdzie się instrukcja RUN, 
to program, zostanie automatycznie uruchomiony. 
Oczywiście instrukcja RUN musi się w takim przy¬ 
padku znaleźć na końcu wczytywanego programu. 

Normalnie pooczas zapisu na taśmie nie można 
jednak dodać wiersza bez numeru. Czynność ta 
jest wykonywana przez pierwszy z zamieszczo¬ 
nych programów. Odczytuje on dowolny inny pro¬ 
gram nagrany na taśmie przez LIST. a następnie 
zapisuje go ponownie na taśmie z dodanę na końcu 
instrukcję RUN. Poddany tej operacji program uru¬ 
chamia się samoczynnie po odczytaniu go intrukcjg 

Drugi program ma podobne działanie z tę różni¬ 
cę, że program do nagrania jest wprowadzany z 
klawiatury. Pozwala to na tworzenie krótkich pro¬ 
gramów ładujęcych tzw. „loaderów". Trzeba jed¬ 
nak uważać, aby wprowadzane wiersze były bez- 
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11 CLI tCRAPHICS e:IIM A$C6):A$=”łiBłLV 
&':AL=4eM:I0=»4B 


20 P051fie« 0,0:'? *1 


flUtOilAkt-tm 



30 POSITIOH R.s:? 

40 OPER ai,4.R,‘'C:—.P0KE 10*2,7 
50 PORĘ I0*4.0:P0RE 10*5.16 
60 PORĘ 10*0,0:PORĘ 10*9,140 
70 HrU9RCA0RCA$))lCL05C 111:1=0110110*0 
1*256«PEERCI0*9) 

75 A»=AL*L:PORE A0,02:P0RE A»*1,B5:P0R 
C A0*2.70;P0RE A0*3.155:L=L*4;IEH BEtilł 


BO POSITIOH 0,10:? 

BS Al=IHTtL/2S6):A0=L-Al«256 
90 OPEH »1,0,0,"C:‘*:P0RE 10*2,11 
100 PORĘ 10*4,B:P0RE 10*5,16 
110 PORĘ I0*B,A0:P0RE I0*9.A1 
120 X=USRCA»RCA$l):CL05E 81 
130 UAPniCS 0:110 


błędne, ponieważ program nie kontroluje składni 
yrprowadzanych instrukcji. 

Zastosowany sposób ma jednę zasadniczę 
wadę. Programy zapisywane przez LIST maję dłu¬ 
gie przerwy między rekordami i w zwięzku z tym 
długi czas odczytu. Praktyczne jego zastosowanie 
ograniczone jest więc do programów o stosunkowo 
niewielkiej długości, np. właśnie loaderów. 


Roman Tomaszewski 
Andrzej Zalewski 


LI 


RE 

NR 

5J 


V5 


EE 

OK 


RB 

HX 

OE 


TA 

OB 

AT 


PN 

•R 


1 REN « • 

« « 

10 CLI IRIN A$C20001,5$C1201.CSC5001:l 

=1 


20 OPEN 81,4,0,**E:~:P0KC n.otpojmw 

0.0 

21 REN « • 



41 REN « « 


op: 


A « 

50 r **440*Hprew4z linio prooraM." 

60 ? **4D*C4y ciictsz zfTAc tokst.w post 
aci Plihu *a!lIIEflln«cisaij H4iM 1 « p 
usttj linii.I*"; 

61 REN « ________ • 

BMiśfgKlfMrWinłł 

n • 

70 PORĘ 701.4:? *ni" 

00 IRPIT Nl.SOłCLOSC N1:XF S9=~ TKI 

500 

90 A$ CK,>*LEN <5011=9$IR=X«LEN CSŚl*1:A$ 
(X-1,I-11=CRR$C1SS) 

100 60T0 20 

499 REN « » 


SC 


SOO PORĘ 566.15etOPCN Rl.O.O.^Yl":* NI 
.ASrRIM^tCLOSC NltPOKC B06,146:IRR 


PRZESZUKIWANIE 


AS 1 REM PRZESZUKIWANIE PAMIĘCI 
GF 2 REM Krzysztof Kołodziej 
XN 3 REM Copyright 1968 Baj tek 
SL 10 DIM A0(86>,B$(255) 

SD 20 ? CHR0(125)tPOSITION 2,At? "20 A$*" 
;CHR$(34)| 

CT 30 FOR I»1 TO 86:READ X;Z*Z-*Xt? CHR$(X 
>|tNEXT I:? 

JV 40 IF ZO13403 THEN ? t? "BLAD U DANYC 
H":END 

HP 50 FOR 1*30 TO 110 STEP 10t? I:NEXT I 
QF 60 ? "POKE 842,121? CHRO(125>;LI ST" 

MI 70 POSITION 2,OtPOKE 842,13tSTOP 
GL 80 DATA 104,104,133,204,104,133,203,10 
4, 133, 206,104,133,205,104,133,208,104, 
133,207,104,104,240,47,133,209 
Q0 90 DATA 162,0,161,203,193,207,208,14,1 
60,0,200,152,197,209,240,36,177,203,20 
9,207,240,244,165,203,197,205 
AW 100 DATA 240,2,208,6,165,204,197,206,2 
40,9,230,203,208,2,230,204,24,144,213, 
169,0,133,212,133,213,96, 165 
LP 110 DATA 203,133,212,165,204,133,213,9 
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PAMIĘCI 

Podczas pisania progra¬ 
mów w BASIC-u, w których 
wykonujemy operacje na 
zmiennych tekstowych, za¬ 
chodzi czasami koniecz¬ 
ność wyszukiwania w nich 
pewnych podciągów znako¬ 
wych. 

Również w Basicowych monitorach 
pamięci pomocnę opcję może być 
możliwość wyszukiwania umieszczo¬ 
nych w pamięci mikrokomputera sek¬ 
wencji bajtów. Napisanie procedury, 
która by realizowała powyższe czyn¬ 
ności w języku Basic jest czynnościę 
prostę, ale czas jej wykonywania 
zwłaszcza przy przeszukiwaniu du¬ 
żych obszarów pamięci jest zbyt dłu¬ 
gi, co pogarsza efektywność pisanych 
programów. W zwięzku z tym propo¬ 
nuję wykorzystanie do tych celów za¬ 
mieszczonego poniżej programu. 

Program ten zawiera w liniach 80— 
110 dane do relokowanej procedury 
maszynowej, które dla wygody użyt¬ 
kownika umieszczane sę przez pro¬ 
gram w zmiennej tekstowej A$. Po 
bezbłędnym wpisaniu programu i 
jego uruchomieniu (dla bezpieczeńst¬ 
wa zapisać program na taśmie lub dy¬ 
skietce) tworzona jest zmienna tek¬ 


stowa A$ zawierajęca naszę procedu¬ 
rę w liniach 10 i 20, pozostałe linie 
programu sę kasowane. Po zapisaniu 
tych linii programu na nośniku zew- 
nęlrznym instrukcję LIST, możemy za 
pomocę instrukcji ENTER dołęczać je 
do własnych programów. 

Wywoływanie procedury: 

1. W przypadku wyszukiwania sek¬ 
wencji bajtów bezpośrednio w pamię¬ 
ci mikrokomputera postać wywołania 
jest następujęca: 

X=USR(ADR(AS).START.KONIEC. 
ADR(B$),LEN(BS)) 
gdzie BS jest zmiennę lekstowę, w 
którę należy wpisać wcześniej wyszu¬ 
kiwana sekwencję bajtów w znakach 
ATASCII (maksymalna długość 255 
znaków); 

START, KONIEC — sę to adresy 
odpowiednio poczęlku i końca prze¬ 
szukiwanego przez procedurę obsza¬ 
ru pamięci. 

Pod zmiennę X procedura podstawia 
adres pierwszego bajtu odnalezionej 
w pamięci sekwencji. W przypadku jej 
nieodnalezienia podstawiana jest pod 
X wartość zero. Uwaga! Wartość zero 
podstawiana jest pod X także, gdy se¬ 
kwencja roz|X)czyna się od adresu 
0000. 

2. W przypadku wyszukiv/ania sek¬ 
wencji bajtów w zmiennej tekstowej 
postać wywołania i znalezienia poczę¬ 


lku jej położenia jesi nieco bardziej 
złożone. Jako adres startu wyszuki¬ 
wania (START) podstawiamy adres 
przeszukiwanej tablicy np. dla tablicy 
S$ |X)dstawiamy ADR(S$). adresem 
końca zaś w tym przypadku będzie 
ADR(SS)+LEN(SS)-1. Postać wy¬ 
wołania procedury może być więc na¬ 
stępujęca' 

X=USR(ADR(A$).ADR(SS).ADR(S$) 
+LEN(SS) -1 .ADR(B$).LEN(B$)) 

Po tym '.yywołaniu należy jako 
pierwszę wykonać następujęcę 
insirukcję: 


X=X-ADR(S$)+1 

Jeśli X<0 to przeszukiwana tablica 
nie zawiera danej sekwencji, gdy zaś 
X>0 to wartość X wskazuje położenie 
szukanej sekwencji w zmiennej Si. 

Na zakończenie chcę powiedzieć, 
że czas przeszukiwania przez 
procedurę obszaru pamięci 64KB 
wynosi nieco ponad 2 sekundy, zaś w 
przypadku przeszukiwania 

zmiennych tekstowych procedura 
działa szybciej niż instrukcja FIND w 
Basicu XL. 

Krzysztof Kołodziej 
BAJTEK 12/88 7 





















KLAN ATARI 


NCK I l>OK€ 

W KYAN PASCALU 


Kyan Pascal, bardzo wy- 
^ godny kompilator na małe 
Atari, nie posiada standar¬ 
dowych podprogramów 
PEEK oraz POKE. W instru¬ 
kcjach dotyczących tego ję¬ 
zyka informuje się, że z po¬ 
mocą standardowej proce¬ 
dury „assign” można zreali¬ 
zować własne podprogramy 
PEEK oraz POKE. 

Podarte lam sposoby realizacji nie pro¬ 
wadza do zadawalaiacych rezultatów, naj¬ 
prawdopodobniej z powodu nezrozumienia 
isioty procedury .assign". Poniżej przed 
stawione projKizycje PEEK i POKE zreał- 
zowano w Kyan Pascalu wersja 1.0 (ED we¬ 
rsja 1.1. PC wersja 1. 

Procedura .assign' jwzwala umieszczać 
w dowolnym miejscu pamięci wartośa 
wcześniej zadeklarowanych zmiennych. 
Wywołanie ma postaC assign (wskaźnik, 
miejsce). .Wskaźnik" jest zmienne wska¬ 
zujące rta zadeklarowana wcześniej inna 
zmienną. .miejSce' jest lypu inieger i rów¬ 
na Sie numerowi korńórki. na która wskazy¬ 
wać bedzre .wskaźnik" po wykonaniu pro- 
cedu^. Dokładniej, wskaźnik wskazywać 
bedzie rta ciąg komórek, począwszy od ko¬ 
mórki o numerze .rmejsee". Długość tego 
ciągu zależy od wcześniejszej deklaracji rta 
jaki lyp ma wskazywać .wskaźnik'. 

Zamieszczony pomźej program .poke- 
Real' umieszcza w pamiąa począwszy od 
komórki o numerze .początek’>12100 
cztery liczby lypu real, wczytywane z kla¬ 
wiatury. Ponieważ umieszczane będą 
zmienne lypu real .wskaźnik' zadeklaro¬ 
wano jako .wskazuje rta real*. Dokonarto 
tego jtośrednio jKiprzez zdefiniowanie typu 
.adres* Wtaściwe wstawienie kolejnej licz¬ 
by następuję podczas realizacji Instrukcji 
podstawienia .wskaźnik*->kczba1". kiórą 
należy odczytywać: w osiem kolejnych baj¬ 


tów. począwszy od komórki o numerze 
.p()czatek+8xi" wsław liczbę .liczbai". 
Zmienna .i’ oprócz sterowania pętlą FOR 
przesuwa .wskaźnik" co osiem komórek 
po wstawieniu kolejnej liczby. Druga pęila 
FOR odczytuje wstawiorte liczby, ate w ko¬ 
lejności odwrotnej. Przedstawiony program 
ma charakter pog<adowy. Bardziej praktycz¬ 
ne są dwa następne: pr(x:edura .poke" 
oraz funkcja .peek" 

Ponieważ oba podprogramy operują rta 
pojedynczej komórce pamięci .wskaźnik' 
powin«n b^ typu .wskazuje rta zmienną 
zajmującą jedną komórkę*. W realizacji wy¬ 
brano typ .char*. Ma on jKinadto tę zaletę, 
ze z |>omocą funkcji standardowych .chr" 
oraz .ord' łatwo przeprowadzić go w lyp 
integer i odwrotnie Ze zmienną .miejsce" 
wiąże się sposób adresowania pamięa sto- 
sowarty w procedurze .assign'. Należy pa¬ 
miętać ze MAXINT«32767 Komórki powy¬ 
żej tego numeru są adresowane liczbanrti 

U|dninymi. 

w zamieszczonych programach .peek" 
oraz .poke" przyjęło, ze adres komórki 
określany będzie zmienną .gdzic" typu 
real Wewnątrz podprogramu zmienna ta 
będzie podegata konwersji rta zmienną 
.miejsce" typu inieger. Następnie proce¬ 
dura .assign' ustawi .wskaźnik’ rtad właś¬ 
ciwa komórką. KoiScowe instrukcje wstawią 
do komórki znak o rządanym kodzie lub od¬ 
czytała go i zmienią rta kod. 

Ponieważ kompilator nie przeprowadza 
koniecznych konwersji ty)>ów przy wywoły¬ 
waniu procedur I funkcji niestandardowych, 
omawiane jjodprogramy należy wywoływać 
z parametrem .gdzie" typu real. Tak na 
przykład pcok (20.0). poke (77.0.128). ale 
fieek (53279). gdyż ze względu na wielkość 
argument jest już lypu real. 

/ 

Należy zaznaczyć, ze omawiana proce¬ 
dura .assign' nie ma nic wspólnego — 
jMza nazwą — z podobną jtrocedurą w Tur- 
bo-Pascaiu. W Kyan Pascalu utożsamianie 
pliku z konkretnym zbiorem na dysku reali¬ 
zowane jesi przez odpowiednią formę pro¬ 
cedur .reset' oraz .rewrite'. rta przykład: 
.rewrite" (g, ‘Bt: NOWYPLIK')". 

Ryszard Wiech 


PROGRAM pokeReal(input,output); 

TYPE adres^^real; 

VAR wakazniktadrea; 

1iczbal,1iczba2t rea1; 
początek,itintegar; 

BEGIN 

początekt B12100{ 

FOR 11 bO to 3 DO 
BEGIN 

readInC1iczbal>; 
aaaign( wakaznik, poczatek^^Bn i ) ; 
wakaznlk'': « 1 Iczbal- 
END{ 

FOR it«3 DOWNTO O DO 
BEGIN 

aaaignCwakaznik, poczatek-Fe* i > ; 
I iczba2t ■wakaznik'' ; 
writelnf1iczba2tet4) 

END 

END. 


FUNCTION peek(gdziełreal)tintegeri 
TYPE baJtBChari 

adreaB''ba Jt I 
VAR wakaznikiadrea; 

■ lejące tInteger| 

BEGIN 

IF gdzle>32767 
THEN 

nieJace:Btrunc(gdzle-65536) 
ELSE 

nieJace:Btrunc( gdzie); 
aaa1gn(wakaznik,nieJace); 
peek t Bord( wakazni k'') 

END{ 


PROCEDURĘ poke(gdzletreal|co:integer); 
TYPE bajt=char» 

adreaB^baJtI 
VAR wakaznlktadrea) 
nieJacetIntegeri 
BEGIN . 

IF gdzle>32767 
THEN 

■lejąceiBtrunc(gdzie-65536) 

ELSE 

■ lejące t■trunc(gdzie)| 
aaa1gn(wakaznik,nieJace)| 
wakaznik'' t Bchr (co) 

END; _ 


r 


w 


ZOSTAŃ NIEŚMIERTELNYM! 



Tomasz Hryszko, uczeń I klasy LO z 
Białegostoku przysłał nam wspaniały 
prezent świąteczny — 7 ułatwień do 
gier. 


MR. DO 

N«ograniczona liczba .zyć' da nam zamiana rozkazu 
DEC S0618.X rta LDA ^18. X (SDE, $18. $06 na $BD. 
$18. $06 — 'SHIFT-" w negatywie, "CTRL-X", 'CTRL- 
F’ na " = ■ w negatywie. 'CTRL-X*. "CTRL-F") 

PIE MAN 


Liczba .żyć" jesi przechowywana w komórce $80. Nalej 
zamienić DEC $80 na LDA $80 ($C6. $80 na $A5. $80 - 
'F" w negatywie. "CTRL-." w negatywie na w neg 
tywie. "CTRL-." w negatywie). 

HYPERBLAST 


Liczba .żyć' w komórce $9A — zamienić DEC $9A na 
LDA $9A ($C6. $9A na $A6. $9A — 'F" w negatywie, 
"CTRL-Z" w negatywie na "%" w negatywie. "CTRL-Z" 
w negatywie). 

PHObOS 

uczba .żyć" w komórce $1285 — zamienić DEC $1285 
na LDA $1285 ($CE. $85. $12 na $AD. $85. $12— "N' w 
negatywie. "CTRL-E" w negatywie. "CTRl-R" na "—" w 
negaiywie. "CTRL-E" w negatywie. "CTRL-R") 


CAVERNS OF MARS II 

Liczba .żyć’ w komórce $3B39 — zamiemć DEC $3B39 
na LDA $3B39 ($CE. $39, $3B na SAD, $39. S3B — "N' 
w negatywie. "9". ";" na "—" w negatywie. "9". 
ASTEROlOS 

Liczba .żyć" w komórce $81 — zamienić DEC $B1.X na 
LDA $B1.X ($D6. $B1 na $B5. SB1 — "V’ w negat^e. 
"1 ■ w itcgaiywie na "5" w negaiywo. "1" w negaiyvm). 
DIG-OUG 

Liczba .zyc" w komórce $1805 — zamenić DEC $I805.X 
na LDA $t805.X (SDE. $05. $18 na $BD. $05. $18 — 
"SHIFT-" w negatywie. "CTRL-E", CTRL-X" na w 
negatywie. "CTRL-t" "CTRL-X"). 

Ireneusz PJoirzkowIcz z Otwocka pomógł nam po¬ 
prawić grę: SWAT 

Należy zamienić DEC $066B na LDA S066B ($Ce. $66. 
$06 na SAD, $6B. $06 — "N" w negalwie. "k". "CTRL- 
F". na ■—■ w negatywie, "k", 'CTRL-F"). 

Bartosz Smaga z Warszawy przysłał poprawkę do 
gry: DAN STRIKES BACK 

Zamieniamy rozkaz DEC $0608 na LDA $0608 (SDE. $08, 
$06 na SAD. $08. $06 — "N" w negatywie. "CTRL-H". 
"CTRL-F" na "—" w negatywie. "CTRL-H". "CTRL-F"). 

Od 13-lelnlego Mariusz Geborka z Dankowie mamy 
poprawkę do gry: 

CAPTAIN STICKY S GOLD 


Odszukujemy rozkaz DEC $064B i likwuujetrw go przez 
wpisanie w |ego miejsce 3 razy NOP ($CE. $4B. $06 na 3 
razy $EA — "N" w negatywie. "K", "CTRL-F* na 3 razy 
"I* w negatywie). 

A teraz kilka poprawek, które sam odkryłem: 

THE GOONIES 

Zamieniamy DEC $112C na LDA $112C ($CE. $2C. $11 
na SAD. $2C. $11 — "N" w negatywie, "CTRL-Q" na 
■ w negatywie, "CTRL-Q"). 

Rozkaz len wysięDuje w programie dwukrotnie, trzeba 
więc dokonać zamiany dwa razy 

MARIO BROS 

Liczba .żyć' w Komórce $29 — zamieniamy DEC $29 na 
LDA $29 ($C6. $29 na SAS. $29 — "F" w negatywie. ')" 
na w nepatywie. ''|■ł. 

THE LIYING OAYLIGHTS 

Odporność na strzały wroga da rtam zamiana DEC $80AF 
na LDA $80AI (SCE, $AF. $80 na $AD. $AF. $80 — 'N" w 
negatywie. */" w negatywe. "CTRL-." w negatywie na 
"—" w negatywie. "/* w negatywie, "CTRL-," w negaty¬ 
wie). 

Czekamy rta listy z poprawkami od czytelników — bar¬ 
dzo chętnie je opublikujemy. 

Tomasz Wiśniewski 
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KLAN COMMODORE 


MONITOItY Ml (I) 


O programy te pyta nas coraz 
więcej Czytelników. Do czego 
służą? Jak je wykorzystać? Co 
można dzięki nim uzyskać? — 
oto pytania na które postaram 
się odpowiedzieć w tej serii ar¬ 
tykułów. 

w lęzyku angielskim slov/o .monitor oznacza nie tylko 
monitor telewizyiny. ale rowntez podgląd czy wglgd W rze- 
cz^istości komputerowei S 9 to programy (lub instrukcje BA¬ 
SIC) umożliwiające nam programowanie w języku wewnętr¬ 
znym. dekodowanie takicłt programów oraz iCh badanie, usu¬ 
wanie Dlędów itp. Zestaw mslrukcji jakie obe^uje zwykły 
monitor języka maszynowego czyni go uniwersalnym narzę- 
oziem do pracy nad programami tworzonymi w tym jeżyku W 
ou^h pakietach (np CBM MACRO ASSEMBLbR DEYE- 
LOPMENT SYSTEM) spcłniaję one rolę pomocn«zę, gdyZ 
np. układanie jyogramu jest znaczn e prostsze dzięk- dużym 
asemblerom, pracującym w oparou o etykiety (do lego lema¬ 
tu leszcze wrócimy). 

Nie ma komputera Commodore do którego n-e napisano by 
monitora. Dla YlC-20 był to TINY MON. dla C-64 — HES 
ł/ON czy moaitory ze wspominanego wyżei pakielu. Rodzina 
C-16 ma wbudowany rro-łtor języita maszynowego o lunk- 
pch w zasadzie identycznych z C-6^ Napepszym monito- 
■ cm. .aki dc tej pory spolkalcir, jesl monitor C-IZ8. w którym 
inoZna znaieźć wiele bardzo przydatnych (zwłaszcza dla po¬ 
czątkujących I) łunkcji Przykładem moie tu być np. znak 
. »który umożi wia wprowadzanie adresów czy argumen¬ 
tów w postaci dz csieinej a mc szesnastkowej, automatyczne 
w zasadzie przełączanie bankó'w ilp. 

O po'wszechrvości tych programów świadczy nailepiej^fakt, 
.’e nawet w specjalnych kanach (modułach) typu ExPERT czy 
F'NAL CARTRIDGE jyogramy te są w zasadzie obowiązkowe 
— n-e spotkałem dotychczas zadrtej karty wielofunkcyjnej n.e 
zawierającej monitora jeżyka maszynowego, co wieccj — np. 
EXP£Rt to mc innego jak potężny wielofunkcyjny monitor. 

Wszystkie te programy bez względu na typ komputera są 
do s cb e Zbliżone. Poszczegfr nc mstrukcjc są jednoiitcrowo 
I obejmują zwykle od kdku do kilkunastu liter ailabelu W lep¬ 
szych wersjach — jak wspominany tu EXPERT — lista instru¬ 
kcji zajmuje wszystke litery i na dodatek dużą >tość znaków 
typu .$• czy .#■. Ponieważ jednak mc wszystlach będz« 
stać na zakup tałeej karty, w naszych rozważaniach ograni¬ 
czymy się do jyogramów powszechnie dostępnych. 

Użytkownicy C.16/116, PLUSM i C-128 mają taki monitor 
pod ręką — wystarczy wpisać MONITOR i wcisrtąó Idawisz 
RETURN. Nieco gorzej wygląda sprawa z odpowiednim pro¬ 
gramami dla C-64. choć np. jedna z wers|i SlMON'S BASIC 
zawiera taki monitor dostępny za pomocą -M. W .normal¬ 
nym" BASIC-u jednak program lego typu trzeba f>o prostu 
wczytać do pamięci posługując się przy tym instrukcją LOAD 
.NAiZWA".1,t lub .8,1. Chodzi tu o takt, Że program ten 
MUSI zawsze zrwjdowaó się w odpowiednim miejscu pamię¬ 
ci. Zwykle momtor taki uruchamia się za pomocą SYS adres, 
gdzie adres jyzyjmuje jedną z następujących wartości 4096, 
8192. 12288. 16384. 20480. 24576. 26672, 32768 tub 49152 
(dla C-64). Programy te zajmują zwykle 4 KB pamięci i nąrwy- 
godniejszą dla nich rokai>zaqą jesl ^ny obszar pamięci RAM 
od adresu 49152. 

Po wykonaniu odpowiedniej instrukcji SYS na ekranie uka¬ 
że Się następujący tomumkal; 

PC SR AC XR YR SP 

nnnn nn nn nn nn nn 

Litery nnnn i nn symbolizują wartości podane w kodz.e szes¬ 
nastkowym (heksadecymalnym). Niektóre monitory wyświet¬ 
lają jeszcze dodatkowo: 

PC SR AC XR YR SP NY-BDIZC 

nnnn nn nn nn nn nn 01-11010 

lub toż polo o szerokości 8 do 16 znaków, w którym wyświet¬ 
lane są kody CHRS od wartość zapisanej w danej komórce. 
PC — licznik programu (program counter). Jesl to 16-bilowy 
rejestr wewnętrzny procesora, w którym znajduje Się adres 
następnej w kolejności komórki, z której należy pobrać instru¬ 
kcję do wykonania lub argument instrukcji. Jeżeli podczas 
uruchamiania monitora na ekranie ukaże się wartość, dajmy 
na to SCCFF w liczniku programu, to oznacza to. ze ostatnio 
wykonaną instrukcją była instrukcja w komórce SCOFE. Licz¬ 
nik programu pozwala nam również na znacznie ciekawszą 
działalność — Icslowame ukrytych i niepublikowanych instru¬ 
kcji mikroprocesoia. Dzięki analizie zawarłoś poszczegól¬ 
nych rejestrów jesteśmy w stanie określić, czy dany kod 
może być laką instrukcją czy leż me. Nawiasem mówiąc jest 
10 jedyna chyba możliwość dokładniejszego poznania swego 
mikroprocesora. 

SR — rejestr słowa stanu (status register). Informuje on o 
stanie togłcznym poszczególnych zrtaczników mikrojyoceso- 
ra. albo w postao wartości całego bajtu. albo tez jiod tajemrą- 
czo wyglądającym napisem NY-BDIZC. Zwróć uwagę, że li¬ 
czba znaków w tym napisie jest taka sama pk kczba bitów w 
bajoe. Każdy znacznik jest w rzeczywistości reprezentowany 
przez określony bil lego rejestru. Znaczniki te iniormują pro¬ 
cesor o wtelu bardzo istotnych wydarzeniach np. czy w wyni¬ 
ku jakiejś operacji otrzymaliśmy wartość większą, mmejszą 
bąoż równą zeru, czy |>ódczas zliczania w pętli przekroczyliś¬ 
my już Uczbę 255 ilp. Do znaczników tych wrócimy znacznie 
później przy omawianiu konkretnych przykładów programów 
w jeżyku wewnętrznym. Jożcl jiod określoną kłerą (NY- 
BDIZC) występuje jedynka lub .haczyk" (CHR$(186)) to oz¬ 
nacza to, ze dany bit jest ustawiony, czyli w stanie logicznym 
1 

Poszczególne litery oznaczają: 

N — znacznik ujemności (Negaiwe flag), 

Y — znacznik przepełnienia (Ouerfiow flag). 


-niewykorzystany. 

B — znacznik p’zerwan* programu (Break tlag). 

D — znacznik włączenia dziesętne^ trybu pracy procesora 
(Decimai Hag). 

I — znacznik wytączeaia przerwać (InierrupI disable flag). 

Z — znacznik zora (Zero flag). 

C — znaczniJt przen'esienia (Carry Hag). 

AC — akumulator czyli gtówny rejestr mikroprocesora War¬ 
tość nn podaje ,cgo aMua'ną zawartość 
XR — rejestr indeksowy X oraz jego aktualna zav/arlośĆ. 

YR —ja wyZej lecz dotyczy rejestru indeksowego Y. 

SP — wskaźnik stosu (slack ponter). Wskażn* len informuie 
procesor o pierwszej wolnej komórce pamięć w jej obszarze 
zwanym stosem mikroprocesora Obszar ten jesl bardzo in¬ 
tensywnie wykorzystywany jyzoz mikroprocesor do zapamię¬ 
tywania danych tymczasowych, adresów, skoków powrot¬ 
nych itp. Także programista moze koczyslaó ze stosu, co wy¬ 
maga jednak duzoj wprawy. Warto pamiętać, że całkowite za¬ 
pełnienie stosu powoduje zwykle wyświetlenie komunikatu 
OUT OF MEMORY ERROR (brak pamięci) bez względu na to 
czy RAM dla BASIC jest zajęta czy nic. 

Zanim przejdziemy do listy inslrukcj'. musimy powiedżeć 
sobie cos niecoś o wymaganiach, jakie stawia nam monitor 
języka maszynowego ze swojej stiony. A węc po pierwsze 
olorzymia większoSc monitorow pracuje wyłącznie w 0 |>afCiu 
o koo szesnastkowy, w którym po liczbie 9 występują jeszcze 
iiiery symbolizujące dałsze wartości do 16 (A-niO. B«it. 
C-12, E=ł4, F»l5)przyczym 16 dziesiętne jest oz¬ 

naczane jako 10 szesnastkowe. Dla odróżnienia od zapisu 
dziesęlnego, iczby w kodz« szesnastkowym są poprzedza¬ 
ne znakiem .$■ 

Ponieważ wiem z doświadczenia, ze kod heksadecymalny 
me jest specjalnie lubiariy przez początkujących programi¬ 
stów. zameszczam program umożliw«jący przeliczane war¬ 
tości dziesiętnych na szesnastkowe ■ odwrotnie. Działa on na 
wszystkich komputerach Commodore. przy czym jjosiadacze 
C-16'l 16. PLUS/4 (a także C-128) mogą korzystać z funkep 
HEX$ oraz DEC W wypadku 0-128 josi to w zasadzie niepo¬ 
trzebne. ponieważ wystarczy hczbę dziesięlną jKiprzedzić 
znak-am . +' (np LDA+532Ś0) i momtor żarnem ją samoisi- 
nie na vrarloSć szesnastkową. 

Po trzec-e wszelkie programy tworzone za pomocą monito¬ 
ra powinny oyó ZAWSZE najpierw zapeywane na dyskietce 
czy taśmie i dopiero polem uruchamiane. Język wewnętrzny 
obsesyjnie rae znosi niedokładności (i niedokładnych) - p>3ta 
nieraz Eiardzo nieprzyjemno igle blokując komputer i msz¬ 
cząc tym samym czasami welogodzmny wysiłek 

Po czwarte do naszych próbocdzicmy potrzebowak okre¬ 
ślonego obszaru pamięci, w którym możliwe będzie swobod¬ 
ne I mezaklóoone działanie; dla naszych celów wybrałem ob¬ 
szar od adresu 1CMXX) (52710) do 1^83, co pozwoli nam na 
ujednolicenie wszystkich pizykiadów — będą ono dostępne i 
możliwe do wprowadzenia zarówno dla użytkowników C-16 
czy tt6. C-64. C-t28 itp JeZoii jednak z jakichś powodów 
zdecydujesz sie na wpisywanie programów demonstracyj¬ 
nych w innym obszarze pamięci, to mozesz skor^staó z za- 
meszczorłego w tym numerze BAJTKA artykułu PERFCRC- 
WANA PAMIĘĆ, omawiającego wolne obszary RAM w ppsz- 
czególnych typach komputerów Commodore. 

UWAGA. Najprostszym sposobem umożliwiającym przelicza¬ 
nie adresów dziesiętnych na szesnastkowe i odwrotnie jest w 
C-64 wczytanie najpierw prezentowanego tu programu, a do¬ 
piero później monitora. Teraz uruchom monitor za pomocą 
odpowiedriiego SYS. Gdy zajdzie poHzcba przebczcnia adre¬ 
su, zakoócz pracę z monitorem za pomocą X i RETURN, co 
pozwoli Ci na powrót do BASIC Wykonaj teraz obliczenie i 
wróć do monitora za pomocą odpowednlego SYS. choć 
moze Się zdarzyć i tak. żc nic kaZdy monitor pozwoli Ci na 
rzeczywisty powrót do BASIC. Na przykład momlor z pakietu 
CBM MACRO ASSEM8LER DEYELOPMENT SYSTEM po¬ 
trafi bardzo skuleczrre zablokować BASIC. 

W następnej części zapoznamy się bliżej z hstą pdeceó 
wspólną dla większości monitorów lęzyka maszynowego oraz 
z pewnymi wyjątkami takimi jak np. instrukcje I czy J. 

(cdn) 

Klaudiusz Dybowski 


81 100 REH tu KEX-DEC I KC-HEI ttt 

38 105 : 

12 110 I)MtrrCHRt(17):PRlNT DjRt(147) 

35 115 IMPUT 'HEI-DEC (1) CZY KC-NEX t2)t '|Z 

35 . 120 IF ZOl ANO Z02 MN RUN 
IC 125 IF Z ■ 2 EOTO 143 
10 130 PRlNT:HM«‘'‘iD>0:lNPIIT 'LICZBA SZESHASTK 

OM: ■;»» 

98 135 FOR M TO LEN(Hll):tti*lim(Hll,J,l):l)<D 

ll4łASCJM)-48ł«H4>-'A’)l7:N£XT 
4C 140 PRINT DN»;'r;HU;' « ’;DtPRINT ONttEOTO 
115 

09 145 PRlNT:HX»>“tl)>0tINPUT ‘LICZBA DZIESIETN 

Al 'jDtLD«D 

FF 150 T>UD/16)-INTID/16))tl6tH»>CHR»(T*48-(T 
>9)l7)*H»:D»(D-T)/16iIF D GOTO ISO 
C4 135 PRINT DNI;LD)* - fjHIltPRINTiGOTO 115 


PERFOROWANA 

—PAMIĘĆ— 


Wolne obszary pamięci RAM 
są bardzo przydatne nie tylko 
do wpisywania tajnych haseł 
czy kodow zabezpieczających 
program przed włamywaczem 
— są one najbardziej potrzebne 
przede wszystkim programują¬ 
cym w * Języku maszynowym. 
Ponieważ w tym numerze BAJ¬ 
TKA znajdziesz także artykuł o 
monitorach języka maszynowe¬ 
go informacja o tym gdzie moż¬ 
na wpisywać własne programy 
w tym języku może okazać się 
bardzo przydatne. 


COMMODORE 64: 

— 2 oraz komórki 251 — 254 na stiofuc zererinej. 

— 679 —767 (wykorzystywany czasami do przechowywania 
danjfch o spntcach). 

— 784 — 786 pod warunk em. że w programie nie wykorzystu 
jemy instrukcji USRO. 

— 614 1 815 — przeznaczone na wektor procedury użylkowni- 
kćt 

—'820 — 827. 

— 828 do 1019 włącznie. Jest on zarezerwowany dla bufora 
kasaty stąd tez należy pamiętać, że program lub dane w mm za¬ 
warte zostaną skasowane podczas jakiejkolwiek operacji z mag¬ 
netofonem, 

— 1020 do 1023. 

— 2040 — 2047 pod warunkiem, ze n.e korzystamy w progra¬ 
mie ze sprile ów, 

— 2049 do 40959 czyli normalna pamięć RAM dła programu i 
zmiennych, 

— 49152 — 53247 czyli Obszar dodatkowych 4 KB meadreso- 
walnych przez BASIC. 

— 53248 — $3264. 53271 jeżeli me korzystamy ze 3prite'6w. 

— 53275 —53279 jak wyżej, 

— 53283 — 53294 |aK wyżej. 

COMMODORE 128: 

— 250 - 254 pięć komórek na stronie zerowej. 

— 852 — 86t jeśli me będziemy korzystać z klawisza TAB. 

— 1021 — 1023. 

— 2810 — 3071 obszar dla bufora kasety: jakakołwioKOperacja 
z magnelolonem sjKiwodiije skasowanie wpisanego tu progra¬ 
mu lub danych. 

— 3072 — 3583 jeśk me będziemy korzystali z RS-232, 

— 3584 — 4095 jeSk me korzystamy ze spr.te'ów. 

— 4096 — 4351 )bS1i n* korzystamy z klaw«zy funkcyjnych, 

— 4632 — 4634 jeśli nie ma instrukcji USRO w programie. 

_ 4864 — 7167. 

— 7169 — 65536 czyli zwykła jtam-ęć RAM dla użytkownika 
(tylko jyogram) jeśb wynonamy najpierw BANK 0. 

— 0000 — 65535 jeżeł korzystamy wyłącznie z jeżyka wew¬ 
nętrznego I banku 1 (przeznaczonego na zmienne programu) 


COMMODORE 16/1161 PLUS/4- 

— 208 — 232. 

— 216 — 232, 

— 818 — 1010 czył bufor kasety — dane kib jyogram zosta¬ 
nie stąd usunięty jeżeli będziemy wczytywać lub zapisywać co- 
kołwiek na taśmie. 

— 1015 — 1078 jeżek nie korzystasz z RS-232 (dotyczy tyho 
F>LUS'4), 

— 1280 — 1282 jeżet nie ma w programie histrukcji USR (), 

— 1373—tSlOjeśk me korzystasz z klawiszy lunkcyjnych, 

— 4096 — 16383 czyV zwykła pamięć FIAM dla użytkownAa 
((flaC-t6/ii6 16 KB). 

— 4096 — 64767 czyk zwykła jiamięć RAM dla użytkowmha 
(C-16/t 16 64 KB. PLLIS/4). 

Oczywiście takich obszarów możnaby znaleźć więcej gdyż 
zależy to w dużej mierze od zadania jakie ma wykonać jyo- 
gram. I tak jeśk riM używamy stacy dysków to do naszej dyspo- 
zycy stM również obszar przeznaczony na potrzeby dysków^ 
systemu ojjeracyjnego (tiOS). jezek niepotrzebna fesX ruun gra¬ 
fika — możemy korzystać z większości komórek dla mej przez¬ 
naczonych itp- Zwrćc jednak uwagę, że wszystkie korriputeiy 
mają dwa duże obszary wspólne: 4864 — 7167 oraz 7169 — 
16383. Jeżeli więc Twój program w języku wewnętrzrwm me 
imkorzystuje specyficznych wtasności układów np. YlC czy 
TED. wektorów systemu operacyjnego itp.. to będzie on działał 
na wszystkich typach komputerów jeżei zostanie umieszczony 
w jednym z tych obszarów. 

Do czego jeszcze obszary le czy rwwet pojedyncze komOdu 
mogą być przydatne? Zastosować jest wiele. Mozesz za pomo¬ 
cą roKE w BASIC wpisywać do nich np. wartości koneolowa- 
ne następnie przez program: jeżeli nie są one zgodne z wartoś¬ 
ciami przypisanymi im przez ćiebie program np. automatycznie 
się kasuje czy jormaluje dyskielkę. Jeżeli teraz wartości te nie 
b^ą na stałe zapisane w programie lecz będziesz je nyprowa- 
dzal za pomocą INPUT I porównywał z wartościami wpisanym 
lam PRZED wczytaniem programu to zabezjueczonie to będzie 
niezmiornie trudne o de wog^ możhwe do złamania jirzez pn 
rata W kilkunasto- czy kilkudziesięciobajtowych obszarach 
RAM można umieszczać własne luółkie programy czy jiroceckł- 
ry w języku wewnętrznym uzupełniające jyogram gićmny, zapi¬ 
sywać dane dotyczące dźwięku czy stałych wartości (zamiast 
marryiwać RAM i przypisywać je zmenn^) itp. 


Klaudiusz Dybowski 
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Dwa poniżej przedstawiono 
programy pozwalajo na 
samodzielne wykonanie 
koperty dla dyskietki oraz 
papierowej wktadki do 
pudołka Od kasety 
Programy te współpracują z 
dowolnym Commodore i ze 
wszystkimi drukarkami, 
które mogą wsprOłpracowaó 
z tymi komputerami. W 
wypadku wkładki do pudelka 
od kasety możliwa jest także 
aktuatizacja danych 
dotyczących programów 
zawartych na danej kasecie. 
Możtiwe jest wpisanie do 13 
tytułów programów z obu 
stron kasety. Gdy po jakimś 
czasie taśma la znudzi Ci 
się I skasujesz zawarto na 
niej programy, to bez 
większych problemów 
możesz zrobić dla niei nową 
wkładkę zawierającą 
aktualne tytuły programów. 

W wypadku programu 
drukuiącego kopertę dla 
dyskłCIki użytkownik 
powinien w miejsce .Imię I 
nazwisko" wpisać swoje 
własne dane nie zmieniając 
przy tym liczby znaków w 
tym wierszu. Może to być 
np. imię i nazwisko 
właściciela, dowolny znak 
katalogowy iip. Papier, z 
którego zostanie wykonana 
koperta, powinien być w 
miarę sztywny i czysty — 
doskonale do lego celu 
nadaje się np. papier 
kredow. 

Jeżeli Twoja drukarka 
współpracuje z komputerem 
poprzez port użytkownika. 

10 musisz najpierw 
wprowadzić do programu 
odpowiednie korekty 
(dotyczy to instrukcji OPEN 
oraz PRINT*4). Oczywiście 
posiadacze lepszych 
drukarek np. ŃL-iOczy 
GEMINI będą mogli z 
łatwością wprowadzić 
poprawki do programów, 
umożliwiające wydruk 
więcej aniżeli 13 tytułów w 
wypadku wkładki czy np. 
dodatkowe pola dla nazwy i 
Identyfikatora dyskietki 
Oprócz programów 
zamieszczam także 
przykładową wkładkę, jaką 
otrzymamy w wyniku 
działania pierwszego pro¬ 
gramu. 

Klaudiusz Dybowski 
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245 FOR 1=1 TO 13 

AF 

110 REH tu K. DYBOtiSKI lit 

02 

250 PRINTI4,‘r;C4(niA4(I);C*(I);AI(l+ 

F8 
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78 

120 : 

E2 

255 NETT 

3C 

125 DIII AI(26),S«(13),CI(26) 

16 

260 PR1NTI4,‘I- 

SD 

130 PRINT CRR«(147):Dt:CHR»(17) 


-!■ 

AA 

135 fi4=' 1 

66 

26S PRlNTt4,M STR fi: 

I* 

lA 

1 

140 FOR I»1 TO 13:READ Zt:S»(I)»Z»:NEXT 

37 

270 PR1NTI4,‘ 1 STR 8: 

87 

145 INPUT 'NR KASETY :';N»:IF N»=” BOT 


1‘ 


0 145 

18 

275 PRINTł4,‘l- 

46 

150 IF LEN(N»ł=l THEN ‘tBOTO 


-[■ 


165 

A8 

280 FOR X=1 TO 5:PRINTI4,RI:NEn 

EF 

155 IF LEN(N*)*2 ThEH M=N$ł' ‘tBOTO 1 

BC 

285 PRINTI4,‘'- 


65 


_!■ 

63 

160 N$=Nł+‘ • 

57 

290 PRINTI4:CL0SE4 

F6 

165 PRINT DfSTRONA A'D$ 

15 

295 1 

F8 

170 FOR 1=1 TO 13 

F8 

300 PRINT D»:INPUT ‘KONIEC (T/N) ‘:KNł 

82 

175 PRIHT ‘NRZNA PR06RA«U‘|1|:INPUT A»l 

03 

305 IF KNI<>‘I‘ THEN RUN 


I) 

BB 

310 END 

08 

180 IF LEN(A»(I)))13 BOTO 175 
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BF 
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E2 

320 DATA ‘ ‘,‘ ‘,‘ ‘,‘ 

CE 
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Cl 
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195 FOR 1=14 TO 26 

IC 

330 DATA ‘ ‘,‘ 

AD 
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4D 

335 DATA ‘ ‘,‘ 


A»(l) 

8C 

340 DATA ‘ 

C9 

205 IF LEN(A«(I))>13 BOTO 200 

87 

345 : 

E9 

210 BOSUB 3S0:MEXT 

88 

350 D=LEN(At(I)):U=(13-D) 

OF 

215 1 

FA 

355 IF D<13 TREN At(I)=At(I)łSt(U) 

43 

220 CL0SE4:0PEN4,4 

87 

360 IF 1<=13 THEH SD»=‘ ‘tBOTO 370 

28 
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95 
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lOO 1* »‘f- 
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1 
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95 
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140 for i=l to 28:printł4,d24:next 
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145 printł4,124tprintł4iclose 4:end 

1 
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PRZEDSTAWIAMY WARSAW BASIC (11) 


Często zdarza się, że 
wynikiem działania 
procedury ma być ja¬ 
kaś wartość numerycz¬ 
na lub tekstowa. 

Jeśli do obliczenia tej wartości nie trzeba 
posługiwać ślę skomplikowanym wzorem, 
to aby zaprogramować laką procedurę mo¬ 
żna zastosować deklarację DEF FN. Jeśli 
program, który przyprsuje FN jakąś wartość 
musiałby mieć więcej niż jeden wiersz, to 
DEF FN JUŻ me wystarczy. 

Aby pomóc w uporaniu się z podobnymi 
problemami w Warsaw BASiCu zastoso¬ 
wano mechanizm przekazywania parame¬ 
trów przez nazwę do i z procedury. W tym 
przypiadku parametr aktualny w wywołaniu 
procedury może być zmienną prostą, naz¬ 
wą tablicy lub nazwą funkcji. W czasie wy¬ 
konywania instrukcji PROCEDURĘ la aktu¬ 
alna nazwa parametru jest podstawiana za- 


PRZEKAZYWANIE 



Z PROCEDURY 


miast odpowiedniego parametru lormaine- 
00 . Zmiana wartośoi takiego piarametru ter¬ 
malnego w procedurze jtewoduje modyfi- 
kaqę odpowiadającego mu parametru aktu¬ 
alnego w programie wywołującym. Na Czas 
działania procedury parametr aktualny i for¬ 
malny mają wspólne pole wartości, choć 
mogą mieć zupełnie rózrte nazwy. Przeka¬ 
zywanie przez nazwę jest jedynym sposo¬ 
bem przesyłania używanym w przypadku 
tablic i funkcji. W przypadku zmiennych 
prostych stosowane bywa właśnie wtedy, 
gdy dany parametr reprezentuje wynik 
działania procedury. W Warsaw BASiCu 
jHOcedura może rmeć dość dowolną liczbę 
latach wyjść zarówno numerycznych jak i 
tekstowych. 

W implementacjach innych języków, np. 
Logo, można się sjtetkać z innym rozwiąza¬ 
niem. Wynik działania procedury jest |xze- 
sylany do segmentu wywołującego przez k 
jej nazwę Tym samym procedura jest funk- ^ 
qą swoich parametrów. Ogranicza to liczbę W 
wyjść z procedury do jednego, ale bywa f 
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użyteczne przy rekursyjnym wywoływdniu 
procedur. Ten dogodny sposOb progranrto- 
wania procedur ma teł swote wady podob¬ 
ne do tych lakic maia funkcje zdefiniowane 
za pomocy DEF FN. Otóż wszyslkie zmlen- 
ne poza (>ararrteirami formalnymi sa w niek¬ 
tórych implementacjach Logo zmiennymi 
globalnymi. Tak więc wywołanie takie; pro¬ 
cedury w innym środowisku niz to w jakim 
zost^a stworzona zawsze wymaga wyeli¬ 
minowania F>owtarzajęcych się przypadko¬ 
wo nazw zmiennych globalnych. Jak wiemy 
Warsaw BASIC jest pozbawiony lej niedo¬ 
godności. 

W interpreterze rozbudowanym na uży¬ 
tek Czytelników Bajtka zastosujemy rozwią¬ 
zanie podobne do tego jakie występuje w 
interpreterach Logo. Jedna z różnic to brak 
możliwości rekursyjnego wywoływania w 
naszym interpreterze, CO spowodowane 
jest rnechanizmem umieszczania procedu¬ 
ry w jjamięci za każdym razem, gdy jest 
ona wołana. Nie ma lego ograniczenia w 
werSji WB 3.2. gdzie rw urrueszczeniu pro¬ 
cedury w RAM-dysku można stosować re- 
kursję ograniczona tylko poiemnościę sto¬ 
su. Oczywiście zastosowanie w naszym in¬ 
terpreterze sposobu przesyłania podobne¬ 
go do funkcji FN nie niesie za sobę tych 
problemów o jakich byta mowa w przyląd¬ 
ku procedur Logo. 

W interpreterze rozbudowanym dla czy¬ 
telników Bajika wywołanie procedury jako 
funkcji może mieć postać: 

X-£C*20SlA-.8 

w przypadku wywołania z dyskietki lub: 

X-£C‘20SIA- 

w przypadku wywołania z taśmy magnety¬ 
czne;. 

W przypadku takiego wywołania proce¬ 
dury rozbudowany interpreter przypisze 
zmienne; X w programc wywołującym wy¬ 
nik ostatniej operacji arytmetyczne; wyko¬ 
nanej w procedurze przed wypełnieniem 


rozkazu £E Jeśli zatem ostalmę operację 
będz« np. mstrukcja podstawienia: 

A-B-ł-5/C. 

to rozbudowany interpreter przypisze 
zmienne; X wartej zmiennej A po wykona¬ 
niu działań B-)-5/C. Można zatem powie¬ 
dzieć, ze dokona tego co interpreter wersji 
WB 3.2 w sytuacji, w której X byłby parame¬ 
trem aktualnym a A odpowiadatęcym mu 
l>aramelrem formalnym przesyłanym przez 
nazwę. Przy pomocy rozbudowanego dla 
Czytelników Bajtka interpretera można 
przekazywać w ten sposób tylko dane nu¬ 
meryczne. 

Opisane powyżej funkcje realizuje pro¬ 
gram t. Jeśli chcę je zrealizować Czytelnicy 
Bajtka. to powinni dołęczyć program 2 do 
poprzednich części rozbudowanego inter¬ 
pretera I uruchomić całość. 2yczymy powo- 
dzenial 

Do tej pory mieliśmy do czynienia z jed¬ 
nym rodzajem zmiennych — wszystkie 
zm«nne, czy to w programie wywołującym, 
czy to w procedurach byty zmiennymi lokal¬ 
nymi 2mienne lokalne mogę rnieć te same 
naz^, ale zawsze maję różne wadości. 
Trochę inny rodzaj zmiennych, to parame 
try formalne przekazywane przez nazwę 
Taki parametr formalny i odpowiadajęcy mi 
parametr aktualny mogę mieć różne nazwy 
ale maję takie same wartości. W Warsai 
BASICu występuje jeszcze trzeci rodzą 
zmiennych, tzw. zmienne globalne. 2mien 
ne globalne wszędzie (w każdym segmen 
cie) muszę się tak samo nazywać i maję ta 
kie same wartości. O tym jak zrealizowaiiś 
my zbiór zmiennych globalnych w Warsaw 
BASICLTu I w interpreterze rozbudowanym 
dla Czytelników Bajtka opowiemy w nastę¬ 
pnym odcinku. 

Krzysztof Gajewski 
BogiLslaw Radziszewski 


Jednym z elementów 
nowoczesnego progra¬ 
mowania jest szeroko 
stosowana technika 
okien, której podstawą 
jest możliwość nakłada¬ 
nia w dowolnym miejscu 
na ekran nowych okien i 
późniejsze ich usuwanie 
z odtworzeniem poprzed¬ 
niej zawartości ekranu. 

Kompitaior Turbo Pascata dla PCW 
sam z siebie nie daje takich możliwości, 
ale jeśli rtapiszemy kilka procedur w tym 
języku 1 dodamy zbiór RSX. to otr^ma- 
my zestaw, którym będzie można się po¬ 
służyć we własnych programach. Pre¬ 
zentowana w tym odcinku część pakietu 
graficznego jest zgodna z poprzednimi 
częściami publikowanymi wcześniej i 
obejmuje 21 użytecznych procedur ob¬ 
sługujących ekran JOYCE'a (listing t. 
Zbiór WINDOW SYS). Listing 2 zawiera 
zbiór WINDOW MAC. z którego generu¬ 
jemy RSX'a. używanego przez procedu¬ 
ry w Pascal-u. Na hstingu 3 (zbiór DE- 
MOWIND.PAS) przedstawiono program 
demonstracyjny — TestWmdow. poka- 
zujęcy sfX>sob posługiwania się pakie¬ 
tem. Na rysunku 1 znajduje się, kopia 
ekranu sporządzoną podczas pracy pro¬ 
gramu TestWindow. a rysunek 2 zawiera, 
utworzony przez program, wydruk jed¬ 
nego z okien. 

Zbiór WINDOW.SYS 

Podstawowymi procedurami pakietu, 
pozwalajęcymi tworzyć na ekranie JOY- 
CE'a ^namiczne okna sę dwie procedu¬ 
ry GETLINE i PUTliNE. Pierwsza z nich 
pobiera do bufora część wiersza (ROW) 
ekranu ograniczonego z lewej i prawe; 
strony (kolumny Cl i C2). Wiersz sktada 
Się z 8 oenkich timi (na całym ekranie 
mieści Się ich 256). Druga z procedur 
wykOTKije czynność odwrotnę umiesz- 
czt^c zawartość bufora w odpowiednim 
miejstM ekranu. Obie procedury wyko¬ 
rzystuję RSX'a i bufor przez niego stwo¬ 
rzony. Bufor len musi znajdować się we 
wspólnej dla wszystkich banków pamię¬ 
ci. Z tego powodu wszystkie rozwijania 
nie oparte o RSX'y sę kłopotliwe i mato 
naturalne. Procedura initGPL. micjalizu- 
jęca pakiet poprzez udostępnienie adre¬ 
su bufora, musi być wywołana na poczęt- 
ku programu. Dwie następne procedury 
W_Save I W_Load. służę do zajiamięla- 
nia fragmentu ekranu (okna) ■ do jego 
późniejszego odtworzenia. W kompute¬ 
rach, które maję dużo pamięci operacyj¬ 
nej. okna przechowuje się na stosie. W 
wypadku Amstrada. gdzie obszar pamię¬ 
ci przeznaczony na programy użytkowni¬ 
ka (tzw. TPA — Transtenl Program Area) 
jest mały. musimy skorzystać z Ramdys- 
ku. Okno jest zapisywane na zbiór dys¬ 
kowy. którego nazwa została określona 
orzez stałę TFN. 

Dzięki procedurom SP. PriniWindow i 
HardCopy możliwe jest drukowanie 
okien i całego ekranu na drukarce. Pro¬ 
cedura SP została napisana w assemble- 
rze i zamienia pewnę hczbę bajtów 
(zmienna q) z postaci ekranowej (zmien¬ 
na s) na postać drukarkowę (zmienna p). 
Zamiana obejmuje porcje po 8 bajtów. 
Okna pamiętane sę w formie kolejnych 
bajtów, a nie w formie kodów ASCII ko¬ 
lejnych znaków wyświetlanych na ekra¬ 
nie. Pozwala to zapamiętywać także gra¬ 
fikę. ale z pewnym ograniczeniem. Ekran 
zawiera 720 punktów na 256. które w try¬ 


bie tekstowym obejmuję 32 wiersze po 
90 kolumn. Okno nie może zaczynać się 
w środku wyświetlanego znaku. Kwantu¬ 
je to w pewien sposób obszary możliwe 
do zapamiętania na dysku. Sytuację tę 
można zmienić, modyfikując procedury 
assemblerowe RSX'a. Wymaga to jednak 
dłuższego i mniej przejrzystego kodu. 

Do ułatwienia programowania przez 
definiowanie okien lub zna^wanie ich 
parametrów słuzę dwie kolejne procedu¬ 
ry: Window i WindowParams. W przy¬ 
padku olaen standardowe procedury 
Turbo Pascala insLine i DeiLine działaję 
błędnie. Ich zmodyfikowane wersje 
InsLn i DelLn wykorzystując procedury 
GelLine i PutLine, działaję o jakieś 50% 
dłużej, ale poprawnie. 

Kilka bardzo użytecznych, ale pros¬ 
tych i krótkich procedur i funkcji może w 
większości pracować także na CPC 
6128. Omówimy niektóre z nich. infor¬ 
mację o reszcie pozostawiajęc w komen¬ 
tarzach wewnęlrz programu. Procedura 
Cursor gasi lub zapala kursor na ekranie. 
Likwidacja lub uaktywnienie linii statusu 
(*Drive is...") odbywa się przez wywoła¬ 
nie z odpowiednim parametrem (ołf tub 
on) procedury Status. Do '^zerowania 
ekranu służy procedura RstScr. Czyści 
ona cały ekran, likwiduje okno, przywra¬ 
ca standardowe barwy tła i atramentu. 

Umiejętne wykorzystanie profanowa¬ 
nego zestawu procedur pozwala na pisa¬ 
nie bardzo efektownych i skutecznych 
programów mogęcych zadowolić napra¬ 
wdę wybrednego użytkownika. Na rys. 3 
znajduje się jeden z ekranów profesjona¬ 
lnej programu, dzialajęcogo na JOY- 
CE^-e z wykorzystanie,Tl omawianego 
pakietu. 

Zbiór WIndow.MAC 

Zbiór len służy do wygenerowania 
RSX'a umożliwiającego procedurom Pa¬ 
scalowym dostęp do ekranu. Wywołanie 
RSX'a jako funkcji BDOS z numerem 8t 
(zawartość rejestru C procesora) pozwa¬ 
la przesiać do 720 bajtów z pamięci ekra¬ 
nu (BANK 0) do bulora znaędujęcego się 
w TPA (BANK t). Transfer odwrotny, tzn. 
do pamięo ekranu, wykonywany jest dla 
numeru 82. Wywołanie z waitośj C rów- 
nę 83 zwraca adres bufora. Dziji auto- 
modyhKaqi kodu możliwe było istotne 
zmniejszenie jramięci wymaganej dla 
RSX'a. 

Przygotowanie samego RSX’a polega 
na podziałaniu na zbiór WINDOW.MAC 
zbiorem wsadowym MAKERSX.SUB. 
Odpowiada to wykonaniu następujęcej 
sekwencji poleceń: 

A>M80 ” window 
A>LINK wiTdowjop] 

A>REN window.rsx - window.pri 

Zbiór DEMOWIND.PAS 

Przykładowy program demonstrujęcy 
możliwości .okienne' pakietu, zawarty 
w w zbiorze DEMOWIND.PAS. należy 
skompilować kompilatorem Turbo Pas¬ 
cala i dołęczyć zbior RSX. Kompilacja na 
dysk musi odbywać się ze zm męczo¬ 
nym adresem końcowym (np. COOO 
hex). Dołączenie RSX'a odbywa się przy 
pomocy programu GENCOM.COM: 
A>GENCOM demowind.com wirKiow.rsx 

W podobny sposób należy traktować 
własne programy wykorzystujące pakiet.' 
me zapominajęc o dołączeniu zbioru 
WINDOW.SYS dyrektywę INCLUDE: 

(■I WINDOW.SYS •) 

Organizacja ekranu komputera Am- 
strad PCW 8256 

Cała [lamięć JOYCE'a podzielona jest 
na 4 banki (ang. BANK) po 64 kB. Sy- W 
Stern operacyjny i pamięć ekranu znajdu- ^ 
ję Się w banku (0) natomiast TPA, część W 
BDOS'a. BiOS'a i strona zerowa rezydu- r 
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PROGRAM 1 



C89D 

A9 

A8 


LDA 

#$A8 


C89F 

AO 

C8 


LDY 

#$C8 


C8A1 

8D 

OA 

03 

STA 

$030A 


C8A4 

8C 

OB 

03 

STY 

$0308 

• f 

C8A7 

60 



RTS 


C8A8 

A9 

00 


LDA 

#$00 


C8AA 

85 

OD 


STA 

$0D 


C8AC 

20 

73 

00 

JSR 

$0073 


C8AF 

C9 

5C 


CMP 

#$5C 


C8B1 

FO 

08 


BEO 

$C8BE 


C8B3 

A5 

7A 


LDA 

$7A 


C8B5 

DO 

02 


BNE 

$C8B9 


C8B7 

C6 

78 


DEC 

$78 


C8B9 

C6 

7A 


DEC 

$7A 


C8BB 

4C 

86 

AE 

JMP 

$AE86 


C8BE 

20 

73 

00 

JSR 

$0073 


C8C1 

20 

73 

00 

JSR 

$0073 


C8C4 

A5 

49 


LDA 

$49 


C8C6 

48 



PHA 


C8C7 

A5 

4A 


LDA 

$4A 


C8C9 

48 



PHA 


• e 

C8CA 

20 

07 

C7 

JSR 

$C707 


C8CD 

68 



PLA 



C8CE 

85 

4A 


STA 

$4A 


C8D0 

68 



PLA 



C8D1 

85 

49 


STA 

$49 


C8D3 

A9 

00 


LDA 

#$00 


C8D5 

85 

OD 


STA 

$0D 

• A 

C8D7 

60 



RTS 

• A 

030A 

A8 

C8 





PROGRAM 2 


800 PRINT 'Cześć 8" 

802 X-51357: N-58: C-0 

804 FOR I-O TO N: READ A: POKE X+I,A: C-C+A: NEXT 
806 IF C05814 THEN PRINT "Błbd w części 8": END 
808 SYS X: PRINT "Część 8 OK" 

810 DATA 169,168,160,200,141.10.3.140,11,3^96,169 
812 DATA 0,133,13,32,115.0,261.92.240.11,165,122 
814 DATA 208.2,19Ś,i 53,1§8,122,76,134,174.32,115,0 
816 DATA 32.1l5,0,l65,^3.72.16Ś,74,72,32,'?,1^9 
818 DATA 104,133.74,104.133,73,169.0.i33.1Ś.96 


Od red. Warsaw Basic dziś także na kol. 21 
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w banku (1). W tym banku umieszcza¬ 
ne S 3 programy użytkownika, a dostęp 
do pamięci ekranu odbywa się w assem- 
blerze przy pomocy następującej sekwe¬ 
ncji rozkazów; 

LD eC.oode 
CAU OFC5AH 
dw1)0E9H 

gdzie coće lest adresem procedury ob- 
sługujacei ekran. Procedura ta mus* 
znajdować Się w ostatnim bloku wspól¬ 
nym dla wszystkich banków (adres: 
COOO-FFFF). Znalezienie adresu bajtu 
pamięci ekranu (soraoi) dla punktu o 
współrzędnych x. y W 7 maga zastosowa¬ 
nia następujących wzorow: 
wiersz y dnr 8 
rolladr = 8600 + wiersz « 16 
kolumna = x div 8 

scradr = 2 • (rolladr)„ + kolumna • 8 + 
V mod 8 


gdzie ( )iv oznacza zawartość {>a- 
mięci wskazywanej zawartością nawiasu, 
a div i mod sę odpowiednio operatorami 
dzielenia i reszty dla liczb całkowitych. 
Odpowiedni bit w bajcie wyznaczany jest 
wg wzoru: 
bit “ X mod 8 

Podane wzory utatwię analizę procedur 
assemblerowych występujących w oma¬ 
wianych RSX'ach. 

Mam nadzieję, że prezentowany pa¬ 
kiet uświadomi wszystkim użytkownikom 
JOYCE’a. jak wartościowym sprzętem 
dysponują, a osobom zajmującym się pi¬ 
saniem programów profesjonalnych poz¬ 
woli na stworzenie efektownego i poży¬ 
tecznego oprogramowania na ten 8-bito- 
wy komputer. 

Jarosław Mlodzki 


LISTING 1 


Listing żbioru fi‘U!NUUU.SYS 

tt 

(ł Zbiór VINC'OU,SYS 

(ł ver. !.0i 

(I 

(j (C) Jarosłan łIłctJiki Ciemiec 1988 

(I 

(I Ueożłiitia realizację podslanoiiych funkcji obsługi ekranu 
(t łącznie z tłykorzyslanie* okien tekstowych i graficznych 
(» na koiputerach ABSTRhD PCK 8256/8512 w Turbo-Pascalu 
(I pod kontrolą systeeu operacyjnego CP/B Plus. 

(i 

{i Lista procedur; 

(} 

‘I 1. 

(I 2. 

(I 3. 

(t 4. 

(I 5. 

«* 6 . 

(I 7. 

(t 8. 

(t 9. 

(t ie. 

(I II. 

(J 12. 

(t 13. 

(1 14. 

(1 15. 

(» 16. 

(t 17. 

(i 18. 

(I 19. 

(t 28. 

(t 21. 

(t 22. 

(t 

(t Uwagi. 

(I 

(t 1, Kysagany zbiór KlKDOif.RSk realizujący odwołania do syste- 
(t KU operacyjnego, które pozwalają na dostęp do panięci 
(} ekranu 

(t 

mmmtttttmtmnmmmmmmtmnumtmtimut 

const 

TFN = 'r;THP łłV‘; (I tyRCzasowa nazwa zbioru t) 
off = false; 
on = true; 

e 

uffer = record 

sline array (.6..719.) of byte; 
pres , array (.1..24.ł of integer; 
end, 
var 

pbuf ; *buffer; 
wf ; file; 



procedurę Error (e : byte); 
procedurę Cursor (s ; nooiean); 
procedurę Dark (s ; boolean); 
procedurę Vrap (s ; boolean): 
procedurę Under (s ; boolean); 
procedurę Inverse (s ; boolean); 
procedurę Status (s ; boolean); 
procedurę InitSPL; 

procedurę GetLine (row,cł,c2 : integer); 
procedurę PulLine (row cl,c2 ; integer); 
procedurę K_Save (xl,yl, x2,y2 ; integer); 
procedurę U_Load (xl,yl, x2,y2 : integer); 
procedurę sp (var p,s; q ; byte); 
procedurę PrintKindow (xl,yl, x2,y2 ; integer); 
procedurę HardCopy; 

procedurę Uindow 1x1,yl, x2,y2 : integer); 

procedurę KindowParatis (var xł,yl, x2,y2, xc,yc ; byte); 

Function Uherel : byte; 

Function KhereY ; byte; 
procedurę insLn; 
procedurę DelLn; 
procedurę RslScr; 


case s 

of false ; writeif27*c'£0£27'b'£63); 

true : write(£27‘b'£e£27'c'£63); 
tnd; 

end; fi of Dark I) 

procedurę Cursor (s : boolear.)- 
(łmakiiimmnmmtttttUtttifżtfuttj 
(} Kłączanie i wyłączanie kursora t) 

(imnwtmmummnntiimmnm) 


begin 
case s 

of false : write(£27'f'); 

true : write(£27'e'); 
end; 

tnd; (k Cursor t) 


procedurę Krąp (s * boolean); 

\tix%ittiuutnttmtttttmttttttntmtt) 


(t Włączanie i wyłączanie trybu obsługi 4) 
(t ostatniego znaku na ekranie. Jeśli t) 
(t włączony to ostatni znak w oknie druko-t) 
(4 wany będzie w tye saiye niejscu, nie t) 
(t powodując przesunecia ekranu o jedną J) 
(J linie (tzw, scroll) ł) 
(tmtutttumttttmmttmittmtmtt) 


begin 

case s 

of false ; write(£27’w'); 

true : write(£27'v‘); 
end: 

end; Krąp ł) 


procedurę Under (s ; boolean); 

(} Kłączanie i wyłączanie podkreśąlenia t) 
(tmtttitnnftiitmtkmnttmmtntkt) 
begin 
case s 

of false ; write(£27'u‘); 

true : write(£27‘r'); 
end; 

end; U Under t) 


procedurę Inverse (s ; boolean); 
UmttttttttttmMtmtttmmimMtt) 
(J Klaczanie i wyłączanie podświetlenia t) 
(tmnmmutttmfknssmttitntmtit) 
begin 
case s 

of false ; write(£27'q'); 

true ; write(£27'p'); 
end; 

end; (k Inverse k) 


procedurę Status (s ; boolean); 
(tkkkikkktkkUkktttnkkkkkmkkktktktkttttt) 
(k Kłączanie i wyłączanie linii statusu: I) 
(k Drive is A; *) 

mtxx%itiitttxtttttttuuutt%nttnxtxxxi) 
begin 
case s 

of false ; write(£27'e‘); 

true : write(£27'r); 
end' 

end; (k*Status k) 


procedurę InitGPL; 

Uxtmttxxxtttttuxtixx%txititxxxitxxxxxxxxx) 
(I Inicjałizacja pakietu. Ifusi być wywołana t) 
(k przed owołaniee do procedur realizującychk) 
(k okna k> 


begin 

pbuf := PTR (BdosHL (83) ); 
end; (k of InitGPL k) 


procedurę Error (e : byte); 
fikmkkkkkkkkkkkkkkkklkkkmkkkkkkkktkkkkk) 
(k Obsługa błędów k) 

(kkki:kktlktukkkkkkkkkkkk.tktkkk.kkkkkttkkkkk) 
begin 

writeln (£7'6ład ',e, 

' w prograRie. Przerwano.'); 

halt: 

end; (k Error k) 


procedurę Dark (s ; boolean); 
mtnxtitxxtxxtttntxxtxxxxixxxmtxtmxt) 
(k Zniana tła i atraRenlu. k) 

(tktkttkkkkkkkkkkkkkkkkkkkkikkkkkkkkkkkkkkk) 

begin 


procedurę 6etLine ( ROK cl,c2 • integer); 
(kkkkkkkkkkkkkkkkkktkkkikkkkkkktkkktkkkkkkkk) 
(k Pobiera do bufora w TPA jedną linię ROK k) 
(k ekranu (8 cienkich linijek) od koluiny k) 
(k cl do c2 k) 

(kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk) 


begin 


with pbuf* 
do begin 

prRs (.1.) 
pras (.2.) 
prRS (.3.) 
§dos (81); 


end‘ 

end; (k SetLine k) 


ROK - I: 

(cl - I) shl 3; 

(c2 - cl + I) shl 3; 
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procedurę PutLine (ro«,cI,c2 ; integer); 

Przesyła z bufora « TPA do paaięci ekranu t) 
(t jedną linię R0V liędzy koluanaai cl i c2 t) 

(tittittnamtntttmitimttttittijłttmi) 

bcgin 

«ith pbuf* 
do begin 

pr«s (.1.) := ro* - 1; 
pres (.2.) := (cl - ł) ihl 3; 
pres (,3.) ;» (c2 - cl ♦ I) ihl 3: 
§dos (82); 
end: 

end, (t PutLine t) 


procedurę V_Save (xl,yl, x2,y2 • integer); 

ututnttmntttninittmutnmitttit) 

(t Zapisuje na dysk (11;) okno o «sp,; I) 
(I leuy górny rog xl,yl, t) 

(I prauy dolny róg x2,y2. ł) 

(tmituttnhttlmiimmntnmtustt) 

Yir ro« ; integer; 
begin 

assign («f TFN); 
re»rite(uf); 
for ro« := yl to y2 
do begin 

6etLine (roe, xł,x2); 
BlockVrite (vf,pbuf‘,6); 
end; 

close(«f); 
end; (t V.save t) 

procedurę t/.Load (xl,yl, x2,y2 : integer); 

(itmnttmtnntmtittmttnttrtunit) 

(t Ląduje okno z dysku na ekran t) 

(tmtnttmtnttmttntmtkttttttttnit) 

var rov ; integer; 
begin 

assign (uf,TFN); («!-ł) 
reset (uf); (Iłl+i) 

if lOresultOg 

then Error(l); ^ 

for rou ;= ył to y2 
do begin 

BlockRead (uf,pbuf*,6); 

PutLine (rou, xl,x2); 
end; 

close(uf); 
end; (t U.Load t) 


procedurę sp (vir p,s; q ; byte); 

(t»tnttn}»ttstti«»tttntstintttttttt) 

(t Zaeienia linię ekranu, na linie pozua- t) 
(t lajacł na uydruk u trybie graficznye I) 
(t na drukarce t) 

( tmmttnttuttmttmtntutmttnui ) 

begin 

inlinc ( tED/łSB/s/ ł2A/p/ tSA/g/ 

lł7/$C5/Fe6/$e8/»CS/IE5/»lA/$e6/łe8/ICB/ 
łe7/łCB/łl6/ł23/}ie/}F9/}EI /i 13/KI /»18/ 
lEF/Sei/(88/l88/l89/łCI/łl t/SES ); 
end; (t screen linę to printer linę t) 


procedura PrintUindou (xl,yl, x2,y2 ; integer); 

htttutmttuunutmiitimmtmttth 

(S Drukuje Ocno na drukarce t) 

(ttttttttttttittnttttttnmmintitstttt) 

vir 

i, rou. q8 ; integer; 
buf ; array (.I..728.) of byte; 
q : byte; 
begin 

urite (lst,£27£5l£2t); 
for rou ;= yl to y2 
do begin 

SetLine (rou, xl,x2); 
q := x2 - xl ♦ I; 
q8 := 8 t q; 

iP (buf, pbuf'.sł!ne, q); 
urite (Isl, £27'L'.chr(Lo(q8)), 


chr(Hi(q8))); 

for 1 I to q8 
do urite (lst,chr(buf(.i,))); 
uriteln (Istl; 
end; 

urite(lst,£27f<8); 
end; (t Print Uindou t) 


procedura HardCopy; 

(tttitttnmmmttntmtttttmmtmt) 

(t Zrzuca cały ekran na drukarkę t) 

(timtttutmitttmmnttttutmtinit) 

begin 

PrintUindou (1,1,36,32); 
end; (» HardCopy t) 


procedura Bindou (xl,yl, x2.y2 : integer); 

(ttmtntmttntmnittmtttttmitttit) 

(t otuiera na ekranie okno t) 

(.uttmttnttntmutttumttmtmtttty 

nt 


tr, cl«, h, u ; byte; 
begin 

tr := yl ł 31; h := y2 - yl t 32; 

cli := xl + 31; u := x2 - xl ł 32; 

urite (£27‘r,chr(tr),chr(tli), 
chr(h),chr(u)l; 

end; (t Ifindou t) 


procedura BindouParaas (yar xl,yl, x2, 

{unntttmtmmmtumtiWiinl 

(I Byznacza paraaetry aktualnego okna; t) 
(S I. xl,yl - usp. leuego górnego rogu t) 
(t 2, x2,y2 - usp. prauego dolnego rogu t) 

(t 3, xc jfc - usp. kursora uzg. okna I) 

(tttmtmtmthttttitttlimtttmmttt) 

var 

Uxy,Oxy,Cxy ; integer; 
begin 

InLine (tCO/SSA/SFC/ IBF/ł68/}E0/ł43/Uxy/ 
IED/»53/Dxy/ »22/Cxy); 
xl ;= Lo (Uxy) ♦ 1; yl ;* Hi 

x2 ;= Lo (Oxy) ł xl; y2 := Hi 

xc := Lo (Cxy) ł I; yt ;= Hi 

end; (t Ifindou PAraas t) 

Function VhereX ; byte; 

(tmtntimttttmttittittttttttnmitit) 

(I podaje usp. X kursora uzg. okna t) 

{mttmtttnttnnttuttmttttmtmnt) 

yar xy ; integer; 
begin 

InLine (IC0/ł5A/IFC/ł8F/«e/$22/xy); 
8hereX ;= Lo (xy) +1;; 
end; (t Ubere X {) 


(Uxy) ♦ I; 
(Dxy) ł yl; 
(Cxy) ♦ I; 



Function UhereY ; byte; 

( ttxtuttxt%tmxtxiunntmutitttttnw 

(t podaje usp. Y kursora uzg. okna X) 

(iixxxxxxxtxxxxxxxxxxxxxxixixxtnxxixxxxiix) 

yar xy ; integer; 
begin 

InLine (łCD/ł5A/iFC/iBF/ł8e/ł22/xy); 
UhereY ;= Hi (xy) ♦ 1; 
end; (t Vhere X X) 


procedura InsLn; 

(t Poprauiona uersja pascaleuej procedury X) 
(I INSLINE źle działającej na PcC 8256 i) 

( itimxuinxxxxttnxxxtitxxxtxtxxxxxxtttx) 

yar 


xl,yl, x2,y2, xc,yc, i : byte; 
begin 

KindouParats (xl.yl, x2,y2, xc,ycł; 
if (x)=l) and (xi=9i) 
then InsLine 
else begin 

i ;= y2; 

uhile 1 ')= ycłyl - 1 
do begin 


SetLine (i-I, 
PutLine (i, 
i ;=i-l: 
end; 

urite(Łl3); clreol; 
6otoXY (xc,yc); 
end, 

end; (t InsLn t) 


xl,x2); 
xl,x2); 


procedura DelLn; 

Tłttlttttt 


itttxixxmxxxiitxxxtuxxuttntxixttxtxxxt) 

(I Poprauiona uersja pascalouej procedury t) 
(t OELlINE źle działającej na PCV 8256 X) 

ixxxxxxixxxmxxxxxtxxtxxxxxxixxxxxuitxxxx) 

yar' 

xl,yl, x2,y2, xc,yc, 1 ; byte; 
begin 

VindouPara«5 (xl yl x2,y2. xc,yc); 
if (xl=l) and (x2=9l) 
then OelLine 
else begin 

urite (£13); ClrEol; 
i:=ycłyl-l; 
uhile i<y2 
do begin 

SetLine (iH, xl,x2); 
PutLine (i, xl,x2); 

i ;= 1 ł I; 


end; 


end; 

(i OeILn r) 


end; 

6otoXY (l,y2): 
6otoXY (xc,yci; 


CłrEol; 


procedura RstScr; 

utttttxxtixxxixuxxxxxxxxixxixxxxixxxxxxxt) 

(J Reset ekranu, lerouanie do sytuacji po-t) 
(I czątkouej w ułacieniu. Nie odluarza t) 
(i Iini: statusu t) 

(ttntuttttitTttittłtttmtmmtmtntt) 

begin 

InLine (JCD/$5A/JFC/SC2/$eeł; 
end: (J Reset Screen ł) 


(} 


t‘ 


LISTING 2 


Listing zbioru A;VINDOV.HAC 

; tmtititstmimmtmimttt 

: * t 

; X Zbiór UINDDU.HAC X 

: * ver. 1.8 X 

; * X 

; i (C) J. Kłodzki 1988 X 

: » * 

; I RSI do pakietu UINOOU.SYS t 

: * . * 

; I Służy do utuorzenia zbioru t 

; i VIHOflV.RSX t 

; < X 

; xxxxxxxxxxinxxxxxxixxxiixixxxxx 

screen equ 88E9H 
xbios equ 8FC5AH 
roller egu eE688H 
.z88 
eseg 

; rsx header 
ds 6 
jp start 
bdos; jp 8 
(jv 6 

db 8FFH,8,*«IN0(WSY’ 
db 8,8,i 
start; Id a,c 

cp 8i 
jp z.EET 
cp 82 
jp z.PUT 
cp 83 
jp z,ADRES 
jp bdos 

adres; Id hl,buffer 

ret 

SET; Id a,8 

jr cont 

POT; Id a,8EBH ; ex de,hl 

cont; Id (opex),a 

Id hI,(rou) 

Id de,roller 
add hl,hl 
add hl,hl 
add hł.hl 
add hl,hl 
add hl,de 
Id bc,rouŁin 
cali xbios 
du screen 
ret 

routin;Id a (hł) 
inc hi 
Id h,(hl) 

Id la 
add hi,hl 
Id de, (CS) 

add hl,de 
Id bc,(qse) 

Id de.buffer 
opex; db 8 

Idir 
ret 

buffer;ds 728 
rou; du 8 

es; du 8 

qse; du 8 

ds 58 
end 

; XtXXiXtXiXXtXtXXXXXXXHtXXXiXtXX 
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LISTING 3 


Listing zbioru OEROWINO.PAS 

progru TestVindo«; (tłC-,U-l) 

Umttnumntthtttttmitnnmttnumtmm) 

(i 

(t Turbo Pascal Uindow Oeto na PCU 8256/8SI2 t) 
(I 

(t (C> Jtl Czeruiec 1988 

(t 

const 

= 3; 

; arrayC,I..Windows,1.,5.) of Integer 
= (( S, 3, 35. li, I), 

(45 3, 75, II. I). 

( 5 15. 75, 

(4 xe. Ye, XI. 


Windows 

WUb 


typ*. 


23, ni- 
Yl, LineAo t) 


vir 


Char; 


Slring255 = String(.255,): 

: Integer; Ch 
(t SI WINODW.SYS S) 

procedurę Prane ( lipperLeftY, UpperLeftY 

LowerRightt, LowerRighiY; Integer); 
(xxxxxxxxtxiuxxixxxxxisxxxiiixxxxxxxxxnxitiixxuixx) 

(X Rysuje rankę wokół wybranego okna S> 

(tttitntttlimtnmsttsttmtttittttttttttssnsttt) 
var 

i: Integer; 

6otoXY (IpperLeftI, UpperLeftY); Write(£15e); 

for i:= UpperLefllłl to LowerRightl-1 do Write(£l54); 

Write(£l56); 

for i:= UpperLeftYłl to LowerRightY-l do 
begin 

6otoXY (UpperLeftY , i); Write(£l49); 

6otoXY (LowerRightY, i); Write(£149); 

6otóXY (UpperLeftY, LowerRightY); Write(£147); 

for i:= UpperLeftYłl to LowerRigntY-1 do Write(£154); 

Write(£iS3); 

ead (t Prane 4); 

funcllon RanStr(Len: Integer); String25S: 
mxuxxixxmxxxxttxxxxxhmxxxxxxmxixxxmxxxiit) 

(4 Produkuje przypadkowy ciąg znaków o długości Len 4) 
(ixxmxiixtxxxxhmxxmxxxxxxtxxxmxiixxtxxxxxiu) 
wir 

S; String255; i; Integer; 

begin 

S(.e.):=Chr(Len); 
for Len:=l to Len do 

S( .Len.):=Chr(Randonł223)+32); 

RanStr:=S; 
end (4 RanStr 4); 

procedurę SelectWindow(Win; Integer); 

14444444444444444444444444444444444444444444444444441) 

(4 Wybiera jedno z zadeklarowanych okien 4) 

(4444444444444444444444444444444444444444444444444444) 

Window ( Wtab(.Win,l.), Wtab(.Win,2.), 

Wtab(.Win,3.), Wtab(.Uin,4.) ); 
end (4 SeleclWindow 4); 


f rocedure InsInWmdow (w ; byte); 

444444t4444tt444444444444444444i44444444444444444444) 
(4 Wybiera okno i wstawia w nie kolejne linie 4) 
(4444444444444444444444444444444444444444444444444444) 

war 

L : integer; 
begin 

if w=3 then L;= 58 else L:=18; 

SelectWindow (w); 
eotoYY (2,1); 

LowWideo; 

WriteCLine ', Wtab(.w,5.);5, ‘ RanSlrfD); 
InsLn; 

Wtab(.w,5.);=Succ(Wtab(,w,5,)); 

HornWideo; 

end (4 InsInWindow 4); 


procedura DelInWindow (w : byte); 

14444444444444444444444444444444144444444444444444444) 
(4 Wybiera okno i wyrzuca z niego kolejne linie 4) 
(4444444444444444444444444444444444444444444444444444) 
vir 

L ; integer; 
begin 
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if w=3 then L:= 58 elie L:=I8; 

SelectWindow (w); 

6otoXY (2,1); 

LowWideo; 

WriteCLine Wtab(.w,5.):5, ' ■, RanStr(L)); 
DelLn; 

Wtab(.w,5.);=Succ(Wtab(.w,5.)); 

NoraWideo; 

end (4 DelInWindow 4); 
procedura PillWindow (w ; byte); 

(4444444444444444444444444444444444444444444441444144) 
(4 Wybiera okno, i wypełnia je przypadkowyn znakiea 4) 
(44444444444444444444444X4444444444444444444444444444) 


ch : char- 

xl,yl, x2,y2, xc,yc ; byle; 
begin 

if w=3 then L := 71 elie L 31; 
ch := chr(randoB(222)ł32); 

SelectWindow (w); 

6otoXY (1,1); 

LowWideo; 

repeal 

wrile(ch); 

WindowParaas (xl,yl,x2,y2,xc,yc); 
until (y2=ycłyl-l); 
wrap(off): 

for i := I to L do wrile(ch); 
wrap(on); 

NoriWideo; 

end (4 PillWindow 4); 


procedura SwitchWindow (i ; byle); 
(4444444444444444441444444444444444444444444444444444) 
(4 Wybiera okno, chowa je na raedysk, czyści, a 4) 
(4 następnie ponownie odtwarza 4) 

(44444444444444444444:444444444444444444444444X444444) 


begin 

SelectWindow (i); 

W Save (Wtab(,i,l,)-I, WUb(.i,2.)-l, 
Wtab(.i,3.)łl, Wtab(.i,ł.)łlł; 

clrscr; 

W.Load (Wtab(.i,l.)-I, Wtab(.i,2.)-I, 
Wtab(.i,3.)+1, Wlab(.i,4.)łl); 
end (4 SwitchWindow X); 


begin (4 HAIN 4) 

InilGPL; 

clrscr; Slatus(off); Cursorioff); Wrap(on); 

GotoYY (1,1); 

WriteCI25<5Ś789 123456789 123456789 123456789 
■123456789 123456789 123456789 123456789 ‘ł; 


for i:=l to 36 
do begin 

6otoXY (l,i); write(i); 
end; 

Under(on); 
fioloYY (16,27); 

WrileCTURÓO PAsCftL Window Deao (PCW 8256) ', 
Nacisnij dowolny klawisz'); 
Under(off); 

for i:=l to Windows 

do Praae (Wtab(.i,l.)-!, Wlab(,i,2.)-I, 
Wtab(.i,3,)łl, Wtab(.i,4.)łn; 


repeat 

InsInWindow(l); 

lnsInUindow(2); 

lnslnUindow(3); 


until KeyPressed; Read(KB0, Ch); 

repeat 

OellnWindow(l); 

0eIInWindow(2); 

OellnWindowO); 

until KeyPressed; Read(K60, Ch); 


repeat 

FillWindow(l); 

FillWindow(2); 

PillWindow(3); 

until KeyPressed; Read(K6D, Ch); 

repeat 

SwilchWindow(l); 

SwitchWindow(2); 

SwitchWindow(3); 

until KeyPressed; Read(K60, Ch); 




i»łndobtl,>,30,3ł); CursorCon); lnverse(on>; 
6otoIY (I6.3«)! 

wrile (' Orno oo (»ydruko«nia (1,2,3); 
readln(ch): ... 

i := ord(cn)-48: 
if (i<l) or (i)^) 
then begin 

Inerse(off); clrscr; Status(on); 
en*; 
irJ; 

PrintWindoił (Vlab(.i,l,)-|, l/tab(.i,2.)-l, 
«lab(.i,3.)łl, Wtab(.i,l.)łli; 

.rscr; Slatus(on); Inverse(off); 
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Rys. 1. Przykładowy wygląd ekranu programu DE/ifOWIND 
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Rys. 2. Kopio drugiego okna no drukarce 
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Rys. 3. Ekran programu korzystającego z okten 
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Podstawowy podzbiór kodu znakowego ASCII składa się ze 128 ele¬ 
mentów i zawiera: znaki sterujące, duże i małe litery, cyfry, znaki inter¬ 
punkcyjne i niektóre symbole matematyczne. Pozostałe 128 możliwych 
kombinacji 8-bitowego słowa jest wykorzystywane w mniej standardo¬ 
wy sposób i dosyć dowolnie implementowane przez producentów 
sprzętu. Najczęściej wśród wielu innych znaków znajdują się znaki se- 
migraficzne umożliwiające tworzenie w trybie tekstowym ramek. Na 
komputerze AMSTRAD PCW są to kody od 128 do 159. Ponieważ za¬ 
pamiętanie ich w kolejności jakiej występują może być dosyć trudne, 
zebrano je w bardziej przejrzystej formie (patrz rys. 1). 


134 142 140 

r V I 

135 143 141 

I « I 

131 139 137 

ft a j 


138 133 


150 ise 1 S 6 

r T 1 

151 1S9 137 
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147 133 153 

l jL J 


134 149 

I 


132 


130 1 U, 

F i 

129 


Rys. 1 Kody elementów ramek na PCW. 

Zestawienie to będzie dużym ułatwieniem przy pisaniu progr.imów 
typu: 

wnteln(# 134 *138* 138* 138# 140) ; 
writeln(* 133*032*032*032* 133); 
writeln(*l3l*l38#138*138*137); (• PASCAL •). 

lub 

PRINT CHRś(134):CHR^(138);CHRś(138);CHRś(138):CHRś(140) 
PRINT CHRś(133):CHRś(032):CHR<(032):CHRś(032);CHRś(133) 
PRINT CHRś(131);CHRś(138):CHRś(138);CHRś(138);CMRiś(137) 
(» BASIC *). 

W wyniku działania powyższego ciągu instrukcji otrzymamy następującą 
ramkę. 


Dla osób przenoszących oprogramowanie między AMSTRADeni PCV/ 
a IBM'em PC równie użyteczne będzie zestawienie w podobnej formie 
tych samych znaków w komputerze IBM PC- (rys. 2) Na tym spi/ęcie w 
odróżnieniu do PCW. znaki te dostępne są z klawiatury. Trzymając wci¬ 
śnięty klawisz ALT naciskamy kolejne cyfry kodu znaku. Sekwencja 
2.0.3 da 
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Rys. 2. Te same kody na IBM PC 
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OSAKA 


dajesz 
dostajesz; 

• 6 c 2 ęść mapy 

• cultured pearls 

• a 35mm camera 


SAN FRANCISCO 

dajesz 

dostajesz 

• AczęśC mapy 

• gold nuggets 

• 49erseasor 

.1 j ck e t ' 



w przygotowaniach do odlotu na Prozlmę a. w celu 
sp^zanla tam zasłużonego urlopu, przeszkodził ci 
dżwi^ yldeotonu. Na monitorze ukazał się sekretarz 
oatMrala Roberta Małlory’ego, szefa kontrwywiadu 
Federacji Planet Sprzymierzonych. Od razu miałeś 
przeczucie, że stało elę coś złego. Potwierdzały to sło¬ 
wa sekretarza, ktdry powledziM, że generał chce bez¬ 
zwłocznie się z Tobę widzieć. Poszedłeś do pokoju 
szefa. Okazało alę, że Twoje przeczucie nłe myliło cię. 
Jako najlepszy a^nt zostałeś wybrany do bardzo tru¬ 
dnego zadania, od którego zależy los Federacji. 

Z tajnej bazy zostały skradzione dokumenty doty¬ 
czące planu MAGMA. Sę one bardzo ważne dla Fedo¬ 
rami, gdyż jesi w nich mowa o zniszczeniu Ziemi, któ¬ 
ra jest stolicę FPS. łta Ziemi bowiem znajduje się więk¬ 
szość laboratoriów I urudzeó, od których zależy nor¬ 
malne funkcjonowanie Federacji. Poleciałeś więc na 
Księżyc i założyłeś tam tymczasowa bazę operacyjna- 


W tej trudnej misji, której celem jest odzyskanie pla¬ 
nów, ma pomoc d robot ^pu SRU. Jest to najnowo¬ 
cześniejsza maszyna tego typu wyprodukowana 
przez NASA I przeznaczona do zadań specjalnych. 
Przed wysłaniem SRU na Ziemię, powinieneś go prze¬ 
testować. W tym celu musisz naprowadzić celownik 
na odpowiednia część robota i naclsnęć FIRE. Po 
przetestowaniu robota, wysyłasz go na Ziemię. Bę¬ 
dziesz nim sterował zdalnie ze swojej bazy. 

Poruszając się tunelami, znajdującymi się pod po¬ 
wierzchnię plarrety, musisz odnajdywać miasta, wy¬ 
chodzić na powierzchnię i targulęc się ze szpie^mi 
odkupić od nich wszystkie części planu MAGMA. Czę¬ 
ści planu lest dziesięć i każdy ze szpiegów ma po jed¬ 
nej. Złodzieje po sprzedaniu swojego kawałka oferuję 
cl różne przedmioty, kupuj je. Mogę przydać słe przy 
transakcji z Innymi szpiegami. Pamlętai^że za jednę 
część planu mozesz dać maksymalnie 5000 $. 








































































































6 JAMAJKA 







> • 


jb t ł»ń.Aa»^J 


7 ANGLIA 



SAN JUAN 


dajesz 

dostajesz 

• 2 część mapy 

• a treasure map 
spanish doubloon 


LONDYN 



PARYŻ 


dajesz 
dostajesz : 


• 3 część mapy 


anautographed 


beatles album 


GRECJA 


t 


• crown ieyęls 


dajfłsz : 
dostajesz : 

• 10 część mapy 

• the deed to c 

swiss chalet 

• a chronogropch 


ATENY 


dajesz 

dostajesz 


10 EGIPT 


1 


INDIE 


AL KAHlfiA 


cC 


da; 

dostcjesz ’ 

• taęię mcEj^f 

• ciJ emcrald scor| 

• cgoldstotuetie 

ot fwt 


• Zczęść mopy 

• ancient ort jf o ci 

• o grecian urn 



AHMADABAD 


dojesz 
dostajesz. 


5 część mapy 
a :eveld map 
the star of Indie 



Do tego samego co Ty, szpiedzy Unii Niszczy- 
.... -- - -[filei • 


cieli. Chce oni J^nak nie uratówa'ć Ziemie, lecz |e zni¬ 
szczyć. Dlate^ powinleneć sle spieszyć. Musisz 
uważać teł na satelity szpiegowskie, które krełe nad 
planetę. Gdy dostaniesz ale w ich zasięg, korne 


plancie. Gdy dostaniesz ale w ich zasięg, komputer 
zadała ci pytanie. %lełeli udzielisz biednej odpowiedzi, 
twój SRU zostanie zniszczony. > 


Czytaj uważnie komunikaty, gdyż mogę okazać Sie 
one bardzo ważne. Gdy skompletujesz wszystkie czę¬ 
ści planu MAGMA i dostarczysz |e do Waszyngtonu, 
ocalisz Ziemie od losu, który chciała zgotować je] 
Unia Niszczycieli, i tym samym ukoóczysz gre. 

Do twojego wyposażenia dołeczono także instrukc¬ 
je obsługi robola, która zawiera klawisze sterujece 
SRU Oraz opis elementów Identyfikacyjnych: 

U — wychodzenie na powierzchnie 
I — wleczenie emitera podczerwieni, który umożli¬ 
wia widzenie w ciemności 


M — umożliwia odbieranie komunikatów "MSG" 

C — sygnał przywołujecy szpiega 
D — zjazd do tunelu 
I — zmiana oferty dla szpiega 
Y — zgoda na kupno 
N — odmowa kupna 

E — przejrzenie dotychczasowo zgromadzonych 
fragmentów planu MAGMA 


Element 


nty identyfikacyjni 

t. IłłFRAIłEOyiOEÓ IMAGE SENSOR - ołrodekcentnli> 


ilno»lzYlny 

2. ASYNOHRONUSOATACOMPACTOR- główny receptor danydi 


3. HYDRAIJLICMOTIVATOR 
«. PHŁASMONJOIMT 


S THĘ|JVIANP0RT 


główny rrcepk 
dotyckowycn 

— główny ośrodłknapcdowy 

— plazmowy amartyzalor 
mrunkowy 

— zl4Cztprz]rtecz*niows 
utzedztń zewnętrznych 


Oto kilka przydatnych wskazówek; 

1. Jeżeli na początku gry wpiszesz hasło "AUSTRA¬ 
LIA", to nia bgdzlesz musiał testować robota. 

2. Szpiedzy oferują dużo przedmiotów. Nie kupuj 
wuystkłch, gdyż szybko skoitczg ci sig pienigdze. 

3. Podczas sprawdzania robota nie możesz popełnić 
żedrtego błgdu, bo będziesz musiał testować SRU 
jeszcze raz. 

4. Grę zacznij od Paryża, a następnie udaj się do Lon¬ 
dynu. 

5. 


dynu. 

i. Nigdy nie zatrzymuj się w obszarze stałego zagro¬ 
żenia, gdyż często koóc^ się to śmiercię. 

r: Żr* “ ‘ 


Komputer: 


:zy się t 

X Spectrum 48/+, Commodofe 64/128, 
XL/Xr 


AtarlXL/XE 


Piotr Kowalczyk 
Łukasz Czekajewski 











































































































opertę nadPKłała Kamola 
itilina 



NiespK)dziewanie znikną EXPLODlNG FiST III, 
za to pojawił się lecz wciąż dobry HACKER, które¬ 
go .rozgryźli’ nasi gracze. Na pierwszym miejscu 
CHlF*WAR, mapa już wkrótce. Adrian Mole traci po¬ 
pularność, podobnie jak Johnny Walker, za to poja¬ 
wiła się prawie wykopaliskowa PYRAMANIA (hit 
roku 1^3). Czterej komandosi winduję się w górę. 
zobaczymy, jak wysoko wejdą. Tym razem aż 3819 
propozycji Złotej Dziesiątki, ulubionych gier jest 
241. 



CHIPWAR 

DETECTIVE 

HACKER 

WEST BANK 

SKYFOX 

STRIKE FORCE 
COBRA 

SECRET DIARY 

NOSFERATU 

RENEGADE 

FYRAMANIA 



O 
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THE ROCKY HORROR SHOW 


I 


Noc była demna i burzliwa. Padał rzęsisty deszcz, 
niebo co chwilę rozświetlały błyskawice. Droga była 
mokra i Brad nie mógł jechać nawet 50 mph. Janei 
spała niespokojnym snem obok niego. Mijali wioski i 
miasteczka, od dawna uśpione. Nagle wozem zarzuci¬ 
ło i koziołkując wpadł do rowu. Pękły naraz dwie opo¬ 
ny. Dalsza podróż była niemożliwa. Trzeba poczekać 
do rana i pójść |X> pomoc. Tymczasem dobrze by było 
gdzieś przenocować. 

W oddali stal stary dwór Na pukanie odpowiedziała 
tylko sowa. Brad ostrożnie uchylił wiciKle i ciężkie pod¬ 
woje. W środku było oeAno. Oboje ostrożnie weszli 
do wnętrza. Brad zaj^alił zapakę. Gdy nurty pHomyk roz- 
świcllił nieco przestronne wnętrze. Brad z przeraże¬ 
niom spostrzegł, ze Janet zniknęła. 

Ostrożnie ruszył naprzód. Długo szedł korytarzem. 
Gdy otworzy! ostatnie drzwi, znalazł się w jasnej, prze¬ 
stronnej sali. Pod ścianą stała zbroja, na ścianach wi¬ 
siały obrazy, z sulilu zwisały żyrandole Na podłodze 
błyszczały rozrzucone kawałki miedziorytu. Gdzie nie¬ 
gdzie leżały klucze, w oddali głośno tykał stary zegar. 
Sala połączona była z drugą i trzecią, po schodach 
wchodziło Się na obszerne piętro. Na ścianie wisia! ter¬ 
mometr. pokazujący 20 stopni poniżej zera. Tempera¬ 
tura wciąz rosła. W jednym z pokoi, za zasłoną. Brad 
postanowił pozbierać rozrzucone kawałki i poukładać 
pod zasłoną Może to coś zmieni. 

To prawda. Jedynym sposobem na wydostanie się z 
tego naw>edzonego domu jest skompletowanie rozbi¬ 


tego miedziorytu. W przesztosci dwór był zamieszkany 
przez dwie rodziny: Eddiego z żoną oraz Teddy'ego z 
żoną 1 córką. Eddie był (olograłem. a żona Teddy'ego 
motocyklistką. Na skutek zawiści rodziny te otruły się 
wzajemnie i teraz po domostwie krążą ich duchy. Eddie 
z aparatem, z którego strzela, zamknięty jest w lodów¬ 
ce. Gdy się rozmrozi, wyjdzie i będzie próbował zabić 
Brada. Lodówkę można tiomrozić uruchamiając przy¬ 
cisk V/ lodowej komnacie Temperaturę wskazuje ter¬ 
mometr. 

Na wykonanie zadania przeznaczone jest 100 jedno¬ 
stek czasu. Każda ma długość ok. 15 sekund. Czasu 
nie da się zatrzymać v/ żaden sposób. 

Wewnątrz dworu czynne są dwie zapory elektrycz¬ 
ne. powodujące natychmiastową śmierć. Można je wy¬ 
łączyć przyciskiem, umieszczonym nad drabiną, lecz 
tylko na chwilę Spotkanie ze zjawą żony Eddiego jest 
niebezpieczne — zabiera ona ubrania i ukrywa je w je¬ 
dnym z pOKoi. Trzeba się więc zasłaniać, a jak przy tym 
wejść na drabinę... 

Brad musi także uważać na inne zja\vy Nierzadko 
wyrażają one swoje poglądy co do życia lub innych 
zjaw. Bardzo przyjemne jest natomiast wciśnięcie 
przycisku podpisanego .Do Not Press" 

Firma; CRL GROUP PLC 

Komputer: ZX Spectrum 48/ 1 -, Commodore 64/128 

(mp) 


KRÓL I KRÓLOWA GIER 



Krzysztof Grunert uczeń klasy VllB SP n- 27 w Gdym 

Posiadany komputer- T«nex 

Ulubiona gra. łJatch Pomt 

Hobby: modelarstwo, sauks angielskiego 



Iwona Stańczyk uczennica klasy VIB SP nr 164 w 
Warszawie 

Posiadany komjHitei: Spectrum 

Hooby: muzyka młodzieżowa, aerobic. oływanie. a od 3 lal 
także nauka angictskiego 
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WORLD SERIES BASKETBALL 


ZspSWnS każc)y zdaje sobie sprawę, jak trudno 
jest zrobić grę sportowa, w której biorą udziat cale dru¬ 
żyny. Niektórzy wiedzą także, lak trudno jest w nią po¬ 
tom grać. Podstawowym problemem jest to. którym 
graczem mamy sterować. Jeżeli jest ich dwóch w dru¬ 
żynie (jak na przykład w 8ump Set Spike). sterowanie 
przełączane klawiszami 1 i 2. Sprawa jest bardziej 
skomplikowana przy drużynie wieloosobowej. Niezbyt 
szczęśliwe rozwiązanie mamy w grze Soccer. Tu mo¬ 
żemy kierować każdym z zawodników, wybór dokony¬ 
wany jest wciskaniem FIRE. Jeszcze gorzej jest w 
Maich Day - - kierujemy tym. który jest najbliżei piłki. W 
rezultacie można dostać oczopląsu i często w ogóle 
me wiadomo. CO się dzieje. 

Nie ma co mówić o g-'ze One on One — każdy steru- 
le jednym koszykarzem. Warto natomiast zatrzymać 
się nad World Series Basketball — koszykówką z pra¬ 
wdziwego zdarzenia, z zachowaniem wszystkich obo¬ 
wiązujących przepisów Przypomnę pokrótce te. któ¬ 
rych zazwyczaj nie znamy. 

Przede wszystkim, po przejściu z pitką na połowę 
przeciwnika, piłka nie może być cofnięta z powrotem 
na swoią część boiska Nie może też być w posiadaniu 
lednei drużyny diużei. niż 30 sekund. Napastnik me 
może przebywać z pitką pod koszem przeciwnika dłu¬ 
żej. niż 3 sekundy. Dotknięcie ręki przeciwnika powo¬ 


duje zaliczenie jednego punktu foulowego; po zdoby¬ 
ciu czterech takich punktów drużyna przeciwna wyko¬ 
nuje rzuty osobiste. Następne rzuty przyznawane są za 
każdy dodatkowy punkt foulowy. Za każdy celny rzut 
drużyna dostaje jeden punkt, za rzut do kosza w trak¬ 
cie gry dwa punkty, za rzut zza wyznaczonego pola 
trzy punkty. 

Gra Basketball | 0 Sl bardzo elastyczna w użyciu. Mo¬ 
żna wybrać jeden z sześcar poziomóv/ trudności lub 
praktykę — po boisku biega wtedy tylko jedna drużyna 
Do wyboru jest również długość jjolówy meczu — 3. 6 
lub 9 minut Sterowanie odbywa się dowolnym joystic¬ 
kiem lub zdefiniowanymi klawiszami. Można również 
ustalić kolor boiska jako leden z ośmiu Gracze auto¬ 
matycznie siaią się kontrastowi. 

Dlaczego Wo»id Series? Gra przewidziana jest jako 
rozgryv/ki w skali światov/ej. Oczywiście przed me¬ 
czem podaie się nazwę swojej drużyny. Jeśli gra się z 
komputerem, po pierwszej przegranej następuje dysk¬ 
walifikacja. Gdy mecz jest wygrany, jego wynik zostaje 
zapamiętany w tabeli, a drużyna przechodzi szczebel 
wyżej. Nie ma co mówić o zdobyciu mistrzostwa świa¬ 
ta. sukcesem jest wygrać mecz na najniższym szcze- 
blul 

Rrma: Imaglne Software 

Komputer: ZX Spectrum 48 Amstrad/ Scheldar 


SiOlS 

Mam komputer Ałan 65XE. Szukam gier; RAMBO. GUN 
FRIGHT. TRASHMAN i ARKANOID w wersji kasetowej. 
Jacek Kuznicz ul. ZMW 7a m 29 75-342 Koszalin 
Czy ktoś może zamienić się ze mną na gry; AVENGER. 
THE WAY OF THE TlGER. ASTERIK and THE MAGIC 
CAULDRON. RAMBO. ZORRO w wersji na Spectrum+? 
Jakub SandeckI ul. Jarocińska 1/215 
04-171 Warszawa 

Pilnie szukam gry BOMB JACK na Spectrum. Odkupię lub 
wymienię na inne 

Leszek Tamarzewski ul. SIroms 1 59-820 Leśna • 
woj. Jeleniogórskie 

Poszukuję dokładnych map. a także nieśmiertelności i in¬ 
nych utatw^ń do gier; AVENGER. STRIKE FORCE CO- 
BRA. SABOTEUR II. RAMBO II na Spectrum. W zamian 
inne. 

Piotr Szymański ul. Targowa 15 m 63 
03-727 Warszawa 

Nie wiem. co zrobić, gdy się stoi przed murkiem w grze 


THE NINJA MASTER. Szukam opisów do gier; V, FYLER 
FOX, THE ARC OF YESOD. W zamian inne. 

Hubert Czerski ul. Janlrtówka 14 m 10 
03-562 Warszawa 
Jak uzyskać nieśmiertelność w grach; COMMANDO. CO- 
BRA STALLONE. CHOCKIE EGG. BARBARIAN’ Co zro¬ 
bić w grze LIYINGSTONE? 

Krzysztof Procek ul. Nadgórników 4 m 10 
40-206 Katowice 

Chodzi mi o sposób grania w KENNEDY APPROACH 
Szukam tez opisu do gry SABOTEUR I. II i III. Komputer 
Atan. W zamian inne. 

Pstryk Siewierski ul. Jagiellońska 6a/5 
70-436 Szczecin 

Poszukuję instrukcji do gry GUNLAW (RAMBO) i GHOST- 
BUSTERS na Atari 65 XE. W zamian inne. 

Andrzej Ragus os. Życzyn 08-45t Życzyn 
Mamy trudności z grą ZORRO na AUri 800 XE. Nie może- 
tfy wyjść z grobowca. Będziemy wdzięczni za j^omoc. 
Marcin I Tamara Korczak ul. Polna 46 m 5 
00-644 Warszawa 

Poszukuję następujących gier na Ala.'i 65 XE BARBA- 
RIAN. POP EYE. WINTER GAMES. ARKANOID. NINJA. 
StLENT SERYICE. PANAMA JOE i innych W zamian 20 
gier I programów użytkowych 
Marek Jaśkowski ul. Matejki 25/4 87-100 Toruń 


JEST GRANE 

POKErzysta 

SPECTRUM 


Poke'i do wpisania w łoadery lub na programie COPY- 
-COPY (najczęściej w główny segment). 

DEFENDA - POKE 37530.52; POKE 37283.0 

ASTRO BLASTER — POKE 27422,0. POKE 26396.255 

SWEEVO'S WORLD — POKE 33219.0 

MUTANT MONTY — POKE 54959.0 

KNIGHT TYMĘ — POKE 24584.255; POKE 24585.255 

POKE 45322.255: POKE 45323^55 
POKE41456.0 POKE41457.0 

SCOOBY DOO - POKE64027.86: POKE 64028 Skib 

POKE 29614.0 

TERWtJUS - POKE 45583.0: POKE 47023.0 

ROBIN OF THE WOOO — POKE499tl.O 

MARBIE MAONESS — POKE 38579.0 

Cale loadeiy do przepisania i zgrama na taśmę (zgrania na 

taśmę komendą GO TO 1987). Stary loader należy pomi- 

nąc. 

JUDGE DREDD — MELBOURNE HOUSE 
10 REM . ..M.1 
20 CLEAR VAL .24700" 

30 LOAD •" CODĘ t6384 ; LOAD "" CODĘ 
40 POKE 24963.24 
50 R/^DOMIZE USR VAL ■24736* 

1987 SAVECHR$22 + CHR $ l + CHR$0 + "DREDD" 
+CHR$6UNE0 

Loader do oryginału gry URlDtUM -- HEWSON CONSUL- 
TANS 

10 CLEAR 62719; RESTORE ; REM ...M.1 .. 

20LETW-2;LETT=0 

30 FOR 1-23296 TO 23364 

40 READ A ■ LET T=T+V1(«A ; POKE I.A ; LET W-W-t-1 
50 NEXT 1 

60 IF T..24746 THEN PRINT "GDZtES JEST BŁĄD" 
BEEP 1.1 . STOP 

70 POKE 23353.0 ; POKE 23558.0 
80 PRINT AT 2t.5 ; "START URIDIUM" 

90 RANDOMIZE USR 23296 

500 DATA 49. 0. 92. 221. 33 

501 DATA 0.0. 17. 126. 2 

502 DATA 62.255. 55. 205. 86 

503 DATA 6, 48. 238. 221. 33 

504 DATA 0.64. 17.0.27 

505 DATA 62. 255. 55. 206. 86 

506 DATA 5. 22t. 33. 0. 0 

507 DATA 17. 0. I. 62, 265 

508 DATA 243. 205. 169. 5. 221 

509 DATA 33. 0. 92. 17. 0 

510 DATA 164. 62. 255. 205. 169 
5tt DATA 5. 62. 1.50. 168 

512 DATA 152, 62. 2.50. 147 

513 DATA 53. 195. 80, 253 

1987 SAVE CHR S 22 + CHR S 1 + CHR * 0 + "URI- 
DIUM" LINĘ 0 

Loader do oryginału gry FIRELORD — HEWSON CON- 
SULTANS 

10 CLEAR (65535 : REM M.1... 

20 LET/LA-USR “a" 

30 READ N 

40 IF N=999 THEN GO TO 60 
50 POKE AA.N ; LET /LA-/LA + 1 : GO TO 30 
60 PAPER 0 : INK 0 ; BORDER 0 ; BRIGHT 0 ; CLS 
70 RANDOMIZE USR 65368 

510 DATA 62.255. 55. 221. 33. 39 

511 DATA 244. 17. 125. 2.205.86 

512 DATA 5. 48. 243. 62, 255, 55 

513 DATA 221. 33. 0, 64. 17, 87 

514 DATA 191, 205. 86. 5 

515 DATA 175, 50, 205.134 -nieśmiertelny 

516 DATA 175. 50.205, 125. 135 — ułatwienia w handlu 

517 DATA 175. 50. 170. 150. 62, 7. 50. 156. 150 

518 DATA 62.58. 50. 168. 136 

5t9 DATA 175, 50. 38. 156. 62. 58. 50. 67. 156 
520 DATA I95. 79. 94. 999 

1987 SAVE "CHR $22 + CHR $ I + CHR$0 + "LORD" 

+ CHR $ 6 LINĘ 0 

M.1 
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PRZEDSTAWIAMY WARSAW BASIC (9) 


WYWOŁANIE PROCEDURY r 


Od redakcji: Zdarzyła nam 
się okropna gafa — w numerze 
10/88 pominęliśmy dziewiąty 
odcinek Warsaw Basica. Na¬ 
prawiając nasz btąd przepra¬ 
szamy jednocześnie Autorów I 
Czytelników. 


Wywołanie procedury w 
Warsaw BASICu realizuje 
instrukcja CALL. Do wywo¬ 
łania procedury z dyskietki 
wystarczy podanie jej naz¬ 
wy i listy parametrów. W 
pętli interpretera dokonuje 
się sprawdzenia składni wy¬ 
wołania i jeśli listy parame¬ 
trów poprzedzonych nazwę 
nie można zakwalifikować 
jako zmiennej tablicowej, to 
indukowane jest wywołanie 
CALL. 

CALL wykonuie sze«eg czynności zwią¬ 
zanych z wywołaniem, a mianowicie: 

(1) sprawdzenie czy procedura jesi w pa¬ 
mięci operacyjnei bezpośrednio za 
zbiorem zmiennych orogramu wywolu- 
lacego. 

(2) sprawdzenie czy procedura lest w 
RAM-dysKo. 

(3) utworzenie nowego poziomu. 

(4) sprawdzen-e czy procedura jest w pa¬ 
mięci zewnętrzrrej. 

(5) wczytanie procedury do komputera. 

(6) przekazanie parametrów. 

(7) poinformowanie, które z parametrów sa 
przekazywane przez nazwę. 

(8) przekazanie sterowania procedury. 
Obtętośó CALL z Warsaw BASICa zmu¬ 
sza nas do roziozenia prezcntaqi tO| instru- 
kc|i na kilka etapów. Ograniczymy s<ę przy 
tyrn do przedstawienia czynności związa¬ 
nych z realizacja punktów (l). (3). (4). (5). 
(6) i (6). W tym odcinku prezentuiemy pro¬ 
gram. który realizuje czynności (3). (4). (5) i 
( 8 ). 

Interpreter Warsaw BASICa w czasie re¬ 
alizacji punktu (4) proponuje wymianę noś¬ 
nika. jeśli poszukiwanej procedury nie ma 
na dyskietce znajdującej się aktualnie w 
stacji dysków. W prezentowanym progra¬ 
mie pominiemy to udogodnienie. Możliwe 
test zastąpieni go odpowiednimi czynnoś¬ 
ciami operatorskimi w trybie bezjxiśrednim. 
Jeśli wywołane procedury zakoóczy się 
błędem FILE NOT FOUND. to po powroae 
rta poziom wywołujący (EO) i wymianie dys¬ 
kietki można wznow-ć poszukiwanie proce¬ 
dury poprzez skok za pomocą instrukcji 
GOTÓ do nmi. w której występuje instrukcja 
wywołania. 

Odpowiednikiem CALL z Warsaw BA- 
SlCa jest w naszym programie instrukcja 
EC. Program prezentowany w tym odcinku 
pozwata na wykorzystanie instrukcji EC w 
następującym formacie: 

EC .rtazwa procedury", nr urządzenia 
Zamiast parametru .nazwa pr(x;edury* w 
postaci stałej można użyC wyrażenia tek¬ 
stowego. W przypadku wywoływania pro¬ 
cedury zapisanej na taśmie magnetycznej 
numer urządzenia można pominąć. Instruk¬ 
cja EC jest zrealizowana w limach (xl adre- 
du $C707 do adresu $C79B (por. program 
1 ). w tym w liniach od adresu $C76D do ad¬ 


resu $C79B zrealizowano załadowanie pro¬ 
cedury do pamięci operacyjnej. 

Z instrukcją EC integralnie związana jest 
instrukcja EH. która reai zufe funkcje instru¬ 
kcji PROCEDURĘ warsaw BAStCa. EH 
jyełni rolę nagłówka i musi być pierwszą in¬ 
strukcją pierwszej linii procedury. Program 
prezentowany w tym odcinku jMZwala na 
wykorzystanie instrukcji EH w następują¬ 
cym formacie- 

£H.nazwa procedury' 

Parametr .nazwa procedury" musi być sta¬ 
łą tekstową i musi pokrywać się z nazwą, 
pod którą procedura została zapisana w f>a- 
mięci zewnętrznej. Przypominamy, że w 
Warsaw BASiCu lima zaw«ratąca nagłó¬ 
wek nie musi być piennrszą limą programu 
umieszczonego na poziomie wywoływa¬ 
nym. Taka orgamzaija umożliwia un«esz- 
czenie rta tym poziomie kilku procedur po¬ 
łączonych w zestaw. Wywołanie procedury 
z zestawu powoduje, ze wykonywanie pro¬ 
cedury rozpoczyna się od jej nagłówka. Ta¬ 
kie wywołanie musi być poprzedzone spra¬ 
wdzeniem czy wywoływana procedura jest 
JUŻ w pamięci operacyjnej. Ponieważ w tym 
odcinku nie jtrzewidujemy realizacji spraw¬ 
dzania. to pozostaniemy przy wymagań u 
rozpoczynania tekstu procedury od nagłó¬ 
wka Instrukcja EH jest zrealizowana w li¬ 
mach od adresu C79e do adresu C7o5 
(por. program 1). 

EC po wywołaniu procedury jyzekaze 
sterowanie instrukcji EH. po wykonaniu któ¬ 
rej będą sekwencyjnie wykonywane instru¬ 
kcje zawarte w tekście. Wykonanie proce¬ 
dury jMwinno kończyć się przekazaniem 
sterowania do jkerwszej instrukcji po in- 
strukqi wywołania. Umożliwia to rozkaz EE. 
który realizuje funkcje EO (przełączeni na 
poziom wywołujący) i RETURN (jiowrót do 
pierwszego rozkazu po EC). Instrukcja EE 
jest zrealizowana w limach od adresu C7B6 
do adresu C7C9 (por. program 1) EE tak 
jak RETURN w standardowym podprogra¬ 
mie wywoływanym przez GOSUB nie musi 
być ostatmą instrukcją w procedurze. Jest 
natoitMast instrukcją, która jest wykonywana 
jako ostatnia. 

W Warsaw BASiCu wykonanie procedu¬ 
ry można zakończyć jeszcze na dwa inne 
sposoby. PROC ERROR — kończy działa¬ 
nie pr(xedury w przypadku nadzwyczajnym 
I powoduje, ze interpreter jm przerwaniu 
wykonania zgłosi się na poziomie wywołu¬ 
jącym. PROC MOVE — kończy wyVonan*e 


procedury, powoduje przełączenie się do 
programu wywołującego z przeniesienłem 
pierwszej tabtcy z procedury do programu 
wywołującego na ostatnie miejsce. PROC 
MOVE służy do tworzenia własrtych tyjjów 
danych w oparciu o typ tablicowy. 

Przypominamy, że numery linii procedury 
mogą być talee same jak numery limi pro¬ 
gramu wywołującego. 2m<enne używane w 
procedurze są zmiennymi lokalnymi i ich 
nazwy przesłaniają takie same nazwy 
zmiennych z programu wywołującego. 

W prezentowanej reaVzaqi wywołania me 
ma jeszcze możliwości przekazywania pa¬ 
rametrów do procedury, ale Czytełnicy. któ¬ 
rzy dołączą program 2 do poprzednich czę¬ 
ści i uruchomią całość będą mogli korzystać 
z bezparametrowych procedur takich jak 
np. procedura kopiująca zawartość ekranu 
znakowej rozdzielczości na drukarce. Pro¬ 
cedura ta nie potrzebuje parametrów, bo¬ 
wiem potrzebne dane są umieszczone w 
pamtęci ekranu. Dostosowując istniejące 
programy do współpracy z rtaszym rozbu¬ 
dowanym interpreterem trzeba tylko pamię¬ 
tać. że jyamięć ekranu zostata przesun-ęta 
na strony od i2"i6do 15*16 włącznie. Po 
takim dostosowaniu program kopiujący 
ekran stanie się wtaścmie dodatkowym roz¬ 
kazem BASICa i będzie go można wyko¬ 
rzystywać w każdym innym programie już 
bez potrzeby dokonywania w ram żadnych 
przeróbek. 

Na zakończenie prezentujemy przykład 
programu wywołującego i procedury, które 
realizują te same funkcje co program i pro¬ 
cedura z poprzedniego odcinka. Aby uru¬ 
chomić ten program należy uprzednio wpi¬ 
sać do pamięci i nagrać procedurę .KA¬ 
SIA". w zbiorze o tej samej nazwie. Wtedy 
można wpisać program wywołujący i uru¬ 
chomić go. Po wykonaniu dyrektywa EP po¬ 
zwala wyświetlić tekst procedury (LIST). £0 
pozwala wrócić na (Kiziom 0 i ponownie 
uruchomić program (RUN). Ponowne uru¬ 
chomienie spowoduje, że .KASIA" pono¬ 
wnie będzie wczytywana z pamięci zew¬ 
nętrznej. mimo że jest juz w komputerze. 
Aby tego uniknąć należy przed załadowa¬ 
niem sprawdzić, czy procedura jest juz w 
pamięci, ale o tym jak to zrealizować 0 |} 0 - 
wiemy w następnym odcinku. 

Krzysztof Gajewski 
Bogusław Radziszewski 
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Program 2 

PRlNT-CsęSć 6" 
X-5.. 


.. _0902: N-257: C“0 ^ 

FOR I-O TO N; READA; POKE/tl.A: C-CrA: NEXT 
IF C-31940 THEN PRINT'C::eśO 6 OK": muTOolO 
PRINT'Bład w części 6"; END 
Y-50245: Z-199 ^ 

POKEY+l.Z: POKEY+5.Z; POKEY-H 1.Z 
POKEY.ó: POKEY+4.183: POKEYrlO.157 
Y-5j248; POKEY-3.1Ć0: POKEY-2.207 


DATA 202.196.105.240.207.201.2.240.131.104.76 123 
DATA 198.169.8.32.248.198.32.214.196.165.122.72 
DATA 165.123.72.32.204.199.240.15.32.160.197 32 . 
DATA 128.197.3.M09.199.32.1-19.198.32.194. 197. 10-4 
■ -- ---.201.44,208 



DA 

DAT 

DA^ 

DA 

DA' 


DATA 104.1U4.24.i4ł.245.76.209.223.32.29.168.32 
DATA 115.0.201.34.2oS.249.32.115.0.240.37,201 
DATA 53,240.33.201.44.208.2,36.76 .’13.199.32 149^^ 
DATA 190.32.191,197.16^.251.164.252.133.65.132.66 
DATA 32.115.0.76.210.Ie8.169,1.96.Ie9.1.9e 


DATA 76.182.197.169.1,96 
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Program 

1 




., 0445 
.. C449 

06 

07 




87 

07 




.. C44F 

9D 

C7 





80 

FB 

OF 

STA 

SCFFB 

A9 

88 


[.OA 

»S00 

.. C6DB 

20 
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01 


I.DX 

iłSOl 

.. C6E0 

AO 
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l.DY 

*200 

.. C6E2 

20 

8A 

FF 

.ISH 

iFFBA 

.. C6E5 

20 

06 

E2 

.IStł 

3E206 

.. CbES 
.. C6EB 

70 

57 

E2 

,1SR 

$£257 

^8 

06 

E2 

JKFł 

$E206 

.. C6EE 

00 

E2 


SE200 

.. C6F1 

AO 

00 


• 300 

. CÓF3 
. . C6F5 

86 

49 


S1X 

$49 

40 

BA 

FF 

JMP 

SFFBA 

C6F8 

48 



PHA 


.. C6F9 
.. C6FC 

AC 

OA 

04 

I.IIY 

$04CA 

n 

88 
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LOA 
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.. C6FF 


r:MP 
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.. C7Ó3 

FO 
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8E0 
PI .A 

$0686 

68 




C704 

■rO 

78 

06 

JMP 
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.. C707 

A9 

08 


I.DA 

»$08^ 
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.. C70C 

?:8 

FH 

06 

JSR 

$C6Fe 

D6 

06 
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.. C70F 

A5 
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I.DA 

$7A 

.. C711 

48 



PHA 
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78 


L.DA 
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.. C71A 
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20 

68 
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85 
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STA 
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PLA 
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00 
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A5 
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A9 
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85 
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STA 
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85 

OA 
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.. 0773 

A6 

28 


l.l)X 
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.. 0775 
.. 0777 

A4 

20 

20 

D5 

FF 
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.ISR 

S2C 

$FFD5 

.. 077A 

BO 

IF 


BOS 

$0798 

.. 0770 
. . C77F 

20 

87 

FF 

,ISR 

$FFB7 

8A 



TXA 


.. 0780 

48 



PHA 


.. 0781 

98 
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.. 0782 

48 
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. 0783 

AD 

FB 

OF 
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$OFFB 

.. 0786 

09 
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•$08 

.. 0788 
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$0796 

.. 07eA 
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.. 0788 
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$2E 

.. 0780 
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2D 
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$20 

.. 0790 

20 

8Ż 

A6 
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40 

33 

Ab 
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.. 0797 
.. 0798 

n 





.. 0799 
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El 
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C9 
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3C7A1 

00 
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20 

73 

00 
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D5 
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20 

95 

06 
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20 

HF 
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00 
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40 

D2 

Ab 
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A9 

01 


I.DA 

•$01 

.. C7CE 

60 
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., C7CF 

A9 

01 
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.. C7D1 
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RTS 


. . 0702 

40 

86 

CS 

JMP 
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A9 

01 
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.. 07D7 
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Spośród zapisu wszystkich da¬ 
nych programu w pamięci 
RAM, zapis liczb jest zapisem 
w szczególny sposób wyróż¬ 
nionym, gdyż każda liczba 
oprócz tego, że zapisana jest 
zawsze w dwóch miejscach pa¬ 
mięci, a jeśli stanowi argument 
zmiennej, to dodatkowo w trze¬ 
cim, jest zapisywana w sposób 
uzależniony od jej wartości i 
postaci jak też i od miejsca za¬ 
pisu w pamięci. 

Zasadniczo można wyróżnić trzy następui^ce 
sposoby zapisu każdej liczby; 

a) zapis w postaci ciggu kodów poszczególnych 
znaków cyfr i symboli liczby zwany niekiedy.za¬ 
pisem ekranowym, 

b) zapis binarny albo Izw. zapis uproszczony, 

c) zapis zmiennoprzecinkowy nazywany także za¬ 
pisem zmiennopozycyjnym. 

Każda liczba zapisana jest zawsze w postaci a), 
natomiast drugi i ewentualnie trzeci zapis może być 
albo w postaci b) albo w postaci c). 

Sposób a) jest identyczny dla każdej liczby i sto¬ 
sowany wyłącznie w pamięci programu. Na jego 
podstawie wypisywana jest liczba na ekranie przy 
listingu programu. Sposób ten polega na tym. ze w 
komórkach pamięci zapisywane sg kody wszyst¬ 
kich cyfr. znaków i ewentualnych symboli, z któ¬ 
rych składa się liczba w takiej kolejności, w jakiej te 
cyfry, symbole i znaki były wyprowadzone z klawia¬ 
tury. Liczba zapisywana tym sposobem zajmuje 
tyle komórek pamięci, ile znaków, cyfr i symboli po¬ 
siada dana liczba. Np. liczba 1.2E + 26 będzie w pa¬ 
mięci Zapisana jako ciąg kodów 1, .. 2. E, +.2. 6. 
czyli 49-46-50^9—45-50-54. Ten sposób zapisu 
jest oczywisty i wydaje się, że po tych kilku uwa¬ 
gach na jego temat nie powinien budzić wątpliwoś¬ 
ci. 

Sposób b) I c) stosowany jest zarówno w pamięci 
programu jak leż i w polu zmiennych. Zajmuje on 
zawsze pięć komórek pamięci, które w polu pro¬ 
gramu znajdują się bezpośrednio za komórką pa¬ 
mięci z liczbą „14" oddzielającą obszar zapisu 
ekranowego od obszaru 5-cio bajtowego. Liczba 
14" jest więc niejako granicą sygnalizująca koniec 
postaci ekranowej i początek postaci binarnej danej 
liczby (zapis b)] lub zmiennoprzecinkowej (zapis 
c)). W polu zmiennych te pięć komórek przypo¬ 
rządkowanych danej liczbie znajduje się w miejscu 
wynikającym z kolejności występowania zmien¬ 
nych w programie i poprzedzone są dodatkowymi 
informacjami o rodzaju zmiennej. 

Jedynym wskaźnikiem obszaru pamięci, w któ¬ 
rym znajduje się te pięć komórek, jest adres począ¬ 
tku pola zmiennych przechowywany w zmiennej 
systemowej VARS (komórka 23627 — młodszy 
baji i komórka 23628 — starszy baji lego adresu). 


Nie wnikając w szczegóły, które zostaną omó¬ 
wione niżej, należy zaznaczyć, że zapis liczby w 
postaci b) lub w postaci c) jest identyczny w polu 
pamięci programu i w pamięci pola zmiennych je¬ 
dynie dla liczb dodatnich, dla liczb ujemnych nato¬ 
miast zapis len. jak zobaczymy, różni się w sposób 
zasadniczy. 

Zapis w postaci uproszczonej 
Zapis ten stosowany przez system dla liczb cał¬ 
kowitych z przedziału -65535 do +65535 realizo¬ 
wany jest przy pomocy izw. starszego albo bardziej 
znaczącego bajiu obliczanego wg równania; 

b, - INT (8/256) (1) 

gdzie; a — dana liczba 
bj — bajt starszy 

i zapisanego w czwartej komórce pamięci 5-cio 
bajtowego formatu oraz tzw. młodszego albo mniej 
znaczącego bajtu obliczanego wg równania; 

b„ - a - 256 • b, (2) 

gdzie; bw, — bajt młodszy 
I zapisanego w trzeciej komórce. 

W pamięci programu brak jest informacji o znaku 
liczby, w związku z czym całkowite dodatnie i uje¬ 
mne z w/w zakresu zapisywane są tu identycznie. 
Np. liczba -384 i +384 w 5-ciu bajtach pamięci 
programu będzie miała tę samą posłać tzn. 0-0- 
”128—1—0 bo 384 « 128 + 1 « 256. Informacja o 
znaku znajduje się dopiero w 5-ciu bajtach pamięci 
pola zmiennych Tutaj liczba dodatnia zapisana jest 
identycznie jak w polu pamięc< programu, nato¬ 
miast liczba ujemna, mimo że zapisana jest rów¬ 
nież przy użyciu starszego i młodszego bajtu to je¬ 
dnak bajty te nie reprezentują tej liczby lecz jej uzu¬ 
pełnienie do dwóch w stosunku do liczby 65536. 
Uzupełnieniem do dwóch przykładowej liczby 
.-384. w stosunku do liczby 65536 będzie liczba 
c = 65536 - 384 - 65152. 

Bajt starszy będzie więc; 

b. = INT (65152/256) = 254 
Bajt młodszy natomiast będzie' 
b„ = c - 256 » b, = 65152 - 256 * 254 - 128 
Ponaoto, przy zapisie tej liczby do drugiego bajtu 
wpisywana jest dodatkowo liczba 255 informująca, 
że zapisana liczba jest liczbą ujemną. 

Zapis przykładowej liczby -384 w 5-ciu bajtach 
pola zmiennych będzie miał zatem postać: 0-255- 
-128-254-0. Dla liczby +384. jak wiemy, zapis był 
0—0—128—1—0. 

Widzimy więc. że zapis liczby o tej samej bez- 
wględnej wartości lecz opatrzonej różnym zna¬ 
kiem. w pamięci pola zmiennych jest zasadniczo • 
różny. Jeżeli jednak uzmysłowimy sobie, że tak na¬ 
prawdę to przecież dana liczba ze znakiem . +' i ta 
sama ze znakiem . -to na osi liczbowej dwie ró¬ 
żne liczby oraz to. że operacje arytmetyczne na li¬ 
czbach dodatnich i liczbach ujemnych zapisanych 
w kodzie uzupełnienia do dwóch są logicznie 
prostsze, to mając jeszcze na uwadze, że logika 
systemu komputerowego to logika prawie absolut¬ 
na, różnica ta nie powinna nas już dziwić. 

Zapis w postaci zmiennoprzecinkowej 
Zapis ten stosowany jest dla liczb ułamkowych z 
całego zakresu liczb, na których system komputera 
ZX Spectrum może prowadzić obliczenia, tj. od 
-1.70141183469(9)E+38 do 
+ 1.70141183469(9)E+38 z wyłączeniem liczb 
większych od -2.938735877 E-39 lecz mniej¬ 
szych od +2.938735877 E-39 (liczby te. jak wie¬ 
my. system traktuje jako liczby równe 0) oraz liczb 
całkowitych mniejszych od +65535 i większych od 
-65535. 

Ten sposób zapisu bazuje na znanym nam fun¬ 
damentalnym równaniu w postaci: 

a m • 2" ( 3 ) 

Aby system komputera mógł przy użyciu tego 
równania zapisać liczbę w komórkach pamięci, 
musi dokonać potrzebnych przeliczeń celem 
„przygotowania" danych dla poszczególnych ko¬ 
mórek 5-00 bajtowego formatu. 

Czyni 10 w następujący sposób: 

1 . Oblicza wykładnik potęgowy wg równania; 

( ln/2»a/ \ 

-1 

In2 • (4) 

Równanie to otrzymano z obustronnego zlo- 
garytmowania równania (3) dla m = 0 5 

2. Oblicza wyrażenie: 

K = 2" (5) 
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3. Oblicza manlysę „m" wg równania 


K (6) 

UWAGA! 

Mantysa jest zawsze większa lub co najmniej ró¬ 
wna 0.5. 0.5 dziesiętnie to 0.1 binarnie Jeżeli za¬ 
tem każda mantysa pos ada składnik 0.5 dziesięt¬ 
nie, czyli binarnie 0.1, to znaczy, że w zapisie bina¬ 
rnym mantysy pierwszym znakiem po przecinku 
jest zawsze „1'. Ta właściwość mantysy pozwala 
uwolnić pierwszy bit po przecinku i wykorzystać go 
do informacji o znaku liczby, natomiast stałą war¬ 
tość 0.5 uwzględniać wyłącznie przy ustalaniu war¬ 
tości liczby. Nie jest to żadne fałszerstv/o gdyż w 
pamięci system zap'Suje liczby dla swoich potrzeb 
a nie dla programisty. Ten natomiast, jeżeli poprosi 
o liczbę, to system w mantysie uwzględni składnik 
0 5 I na ekranie czy też do obliczeń poda liczbę o 
właściwej wartości. 

4 Z tak obliczonej mantysy odrzuca składnik 0.5 a 
pozostałą wartość zamienia na 32-bitową postać 
binarną. 

5 32-bitową manlysę z zerem po przec<nku dzieli 
na cztery równe części po osiem bilów. Mantysa 
nie zawsze musi zawierać wszystkie wyrazy 
szeregu nieskończonego, w związku z czym ro¬ 
zwinięcie na postać binarną może zawierać 
mniej niż 32 biły znaczące. W takim przyoadku 
tworzone są trzy. dwa, jeden bajt znaczący a je¬ 
żeli mantysa m ■ 0.5. wówczas wszystkie cztery 
bajty są równe 0. 

6 Tak przygotowane bajty wpisuje kolejno do czte¬ 
rech komórek pamięci 5-cio bajtowego formatu 
zapisu liczby poczynając od komórki drugiej. W 
tej właśnie komórce ósmy bit „jest wolny". W bi¬ 
cie tym system wpisuje informację o. znaku licz¬ 
by (1 — liczba ujemna, 0 — liczto dodatnia) ale 
czyni to tylko w 5-cio bajtowym formacie pola 
zmiennych. W identycznych 5-ciu komórkach w 
pamięci programu informacja o znaku me istnie¬ 
je. chociaż sam zapis liczby realizowany jest w 
laki sam sposób i ósmy bit też „jest wolny". 
Znajduje się tu jednak zawsze liczba 0. Stąd 
wniosek, że w tym bajcie w polu programu naj- 
większą'żapisaną liczt^ może być liczba 127 (7 
jedynek), niezależnie od tego czy liczba jest do¬ 
datnia czy też ujemna, w polu zmiennych nato¬ 
miast w przypadku liczby dodatniej będzie także 
liczba 127 ale przy ujemnej będzie 255 (8 jedy¬ 
nek), przy czym ósma odczytywana jest jednak 
jako informacja o znaku 

7 Do pierwszej komórki 5-cio bajtowego formatu 
wpisuje liczbę ustaloną wg równania; 

n, - 128 ł n ( 7 ) 

gdzie: n — wykładnik potęgowy obliczony na pod¬ 
stawie równania (4) 

Zauważmy, że lak ustalona liczba i umieszczona w 
lej komórce pozwala zapisać wykładnik o wartoś¬ 
ciach od n - -128 (n, - 0) do n = + 127 (n, - 
255), dlatego też 2 '^ - 2.938735877*lO-^* jest 
najmniejszą, a 2*'*'=1.70141183469*10*®* naj¬ 
większą liczbą, na której system ZX Spectrum 
może prowadzić obliczenia. Powyższe stwierdze¬ 
nie jest formalnie prawdziwe ale zapis n| z pun¬ 
ktu widzenia logiki systemu jest wątpliwy, gdyż nie¬ 
zależnie od tego. czy do komórki pamięci zostaje 
zapisane zero czy nie. to ono lam jest. dlatego leż, 
aby tę wątpliwość wykluczyć, najmniejsza liczba 
jaka do tej komórki jest wpisywana wynosi n, = 1, 
co odpowiada wykładnikowi n = -127. W tej sytua¬ 
cji najmniejsza liczba wynika teraz z równania 
(3) i określona jest dla m 0.5 (najmniejsza) i dla n 
■ -127 (najmniejsza) czyli; 

a„ = m*2" = 0.5»2 '^5 2 - 

-2-'» «• 2.938735877E + 38 

Podobnie liczba największa jest określona dla m ■ 

0.99999999 (największa) i n = +127 (największy). 

czyli; 

ą, = m 2" - 0.99999999*2 = 

= 1.70141183469E + 38 


Za miesiąc — przykłady 


Piotr Sumara 
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KLAN SPECTRUM 


ZACZĘŁO SIĘ OD 


SPECTRUM 


Nie jest to bajka ani reklama. 
Poniższy zarys historii pracow¬ 
ni informatycznej w II L.O. im. 
Stefana Batorego w Warszawie 
dedykuję młodym entuzjastom 
informatyki w polskich szko¬ 
łach oraz ich nauczycielom — 
tym, którym już się udało i tym, 
którzy mają to jeszcze przed 
sobą. 


Dawno temu, gdy tylko nieliczni mieli za sobg 
pierwszy kontakt z mikrokomputerem (głównie w 
Pracowni Podstaw Informatyki Pałacu Młodzie¬ 
ży). a konkretniej na jesieni 1984 r.. rozpoczęły 
się spotkania Koła informatycznego. Zaintereso¬ 
wanie było bardzo małe. Niemal każdy zapytany 
o tajemniczy anons na tablicy ogłoszeń lekcewa¬ 
żąco machał ręką — jedni nie wiedzieli co kryje 
się pod tą nazwą, drudzy — tych było najmniej — 
już tak zagłębili się w problemałykę mikrokom¬ 
puterową. że nie interesowały ich podstawy. Je¬ 
szcze inni. tych było najwięcej, uważali zajęcia 
„na sucho' za stratę czasu. Wiemy przecież, że 
nawet bardzo cierpliwych słuchaczy nie mógł za¬ 
dowolić wykład nauczyciela nie poparty żadnymi 
praktycznymi przykładami. Należy jednak zazna¬ 
czyć, że pomimo braku sprzętu główny opiekun 
Koła, mgr Witold Kranas robił co mógł. Dzięki 
Jego staraniom zajęcia raz w tygodniu odbywały 
się w Centrum Astronomicznym PAN przy ulicy 
Bartyckiej, gdzie oczywiście można było korzy¬ 
stać z mikrokomputera. Jednocześnie Dyrekcja 
Szkoły trzymała rękę na pulsie i gdy tylko władze 
oświatowe otrzymały dar w postaci kilku kompu¬ 
terów. wystąpiono z prośbą o przydzielenie jed¬ 
nego z nich. Cóż to była za radość! 

ZX SPECTRUM 16 KB na Ok. 800 uczniów... 

No. może nie na tylu. bo choć zainteresowanie 
Kołem znacznie wzrosło, to jego liczebność po¬ 
równywalna była zaledwie z jedną klasą. Ale 
apet^ tej grupy tylko wzrósł, bo co można zoba¬ 
czyć na ekranie telewizora z koiSca dużej sati.. 

Dla nauczycieH fizyki prowadzących zajęcia 
Koła stało się jasne, że uczniowie tej szkoły nie 
chcą być „głupsi" od swych rówieśników. Dy¬ 
rektor Szkoły, mgr Teresa Garncarzyk uznała, że 
nie mogą i z funduszy szkoły zakupiono drugi 
komputer. 

Po rozszerzeniu pamięci pierwszego. Koło 
rozpoczynało rok szkolny 1985/86 z dwoma ZX 
SPECTRUM 48 KB. Teraz zaczęła się zabawa — 
dziesiątki godzin spędzonych na zaoleczu )ed- 
nej z pracowni fizycznych, gdzie znajdował się 
sprzęt komputerowy. 

By umożliwić uczniom swobodne, samodziel¬ 
ne korzystanie z wyposażenia zaplecza, mgr Wi¬ 
told Kranas wprowadził „legitymacie użytkowni¬ 
ka ZX Spectrum". Ten zaszczytny tytuł wraz z 
dokumentem otrzymywało się po zdaniu egza¬ 
minu z obsługi sprzętu i znajomości języka BA¬ 
SIC. Z kronikarskiego obowiązku dodam, że 
pierwszymi, którym się to udało, byli uczniowie 
klasy drugiej. 

„Użytkowników” przybywało, a mikrokompu¬ 
terów nie. Czy liceum mogio nie reagować na 
projekt wprowadzenia informatyki jako przed¬ 
miotu szkolnego? Dla Dyrekcji i opiekunów Koła 
odpowiedź była oczywista. Do pamiętnego wrze¬ 
śnia 1986 roku przygotowano się więc solidnie; 
10 nowych ZX Spectrum 48 KB z monitorami i 


magnetofonami oraz wymagane w programie 
nauczania LOGO. 

Charakterystyczny szum Spectrum współpra¬ 
cującego z „Kasprzakiem MK 232" niósł się te¬ 
raz echem po całej szkole. Pracownia, jedna z 
pierwszych w warszawskich liceach, powstała za 
ok. 2 miliony złotych, dla uczniów stała się 
czymś zupełnie normalnym i codziennym. „Kuć 
żelazo póki gorące' (o ile to możliwe, a w przy¬ 
padku II L.O. było to możliwe) — dziś zajęcia in¬ 
formatyki odbywają się nawet w klasie o profilu 
biologiczno-chemicznym. 

Nie będę opisywał dzień po dniu zabiegów i 
starań Pana mgr Kranasa — dawni „użytkowni¬ 
cy" nie mogli narzekać na nudę w pracowni. Je¬ 
szcze w tym samym roku szkolnym zawierała 
ona Obok 12 Spectrum z monitorami i magneto¬ 
fonami, dwie stacje dysków 3" Timex (do ZX 
Spectrum) oraz mikrokomputer AMSTRAD CPC 
6128 z drukarką DMP 2000. Wszystkie urządze¬ 
nia wykorzystywane były do tego stopnia, że 
przestawał istnieć problem ogrzewania wyzię¬ 
bionej sali. Zapalczywi entuzjaści zmuszali nie¬ 
stety swego nauczyciela do częstych odwiedzin 
serwisu. Dzięki firmie AUDIO-TRONIC, ulubione 
przez uczniów „spektrumny” nie traciły na za¬ 
wsze swych sprzętowych walorów. 

Zaczęto jednak dostrzegać inne braki, bowiem 
program podstaw informatyki w zasadzie byłby 
możliwy do zrealizowania, ale mając Spectrum 
trudno jest przekonać podopiecznych, że może 
być coś znacznie ciekawszego niż gry. Pan W 
Kranas kształcąc już całe klasy przysz^ch użyt¬ 
kowników komputerów, by pokazać im np. edy¬ 
tor tekstu lub PASCAL, potrzebował czegoś wię¬ 
cej. 

O fundusze było już łatwjej. tak więc pojawił 
się pierwszy PC XT-Bondwell 8. W niedługim 
czasie zgromadzono do niego około 70 dyskie¬ 
tek. 

W roku szkolnym 1987/88. w pracowni znaj¬ 
dował się również pożyczony szkole klon PC XT. 
który ostatecznie rozbudził ambicje uczniów i 
nauczyciefi. Na tym komputerze przez cały rok 
wielu z nich (także absolwentów, którzy nagle 
przypomnieli sobie o starych murach) nabierało 
wprawy w obcowaniu z DOS-em. Później już 
władze oświatowe nie ociągały się z asygnowa- 
niem milionowych sum. Zakupiono najpierw AM- 
STRAD-a PC 1512 DD. a następnie trzy podob¬ 
ne komputery firmy Schneider (wszystkie z jed¬ 
nym napędem dysków, jeden z twardym dys¬ 
kiem). Imponujący to potencjał, ale nie dający je¬ 
szcze pełnej możliwości upowszechniania PC 
XT wśród uczniów. 

Na nadchodzący rok planowane jest więc do¬ 
pełnienie zestawu bo poziomu: 10 komputerów 
w prostej konfiguracji (jednostka centralna 512- 
-640 KB RAM. karta CG A. jeden napęd dysków 
elastycznych, monitor) oraz jeden łwardy dysk i 
drukarka typu SG-15. Wizja sieci PC i pracy w 
turbo PASCAL-u całymi klasami już w następ¬ 
nym roku ma wielkie szanse, by stać się rzeczy¬ 
wistością. Dziś z rozrzewnieniem wspomina się 
w Szkole SPECTRUM 16.. 

II Liceum Ogólnokształcące w Warszawie to 
przykład, dlatego proszę, aby nasi Czytelnicy nie 
pisali sprostowań o tym. że kluby komputerowe 
istniały już w roku 1982, a w jakiejś szkole ucz¬ 
niowie mają do dyspozycji 20 IBM PC AT z twar¬ 
dymi dyskami. To. w jaki sposób oceniamy karie¬ 
rę pracowni informatycznej w opisanej szkole, 
niech będzie dla nas samych miarą zaawanso¬ 
wania we wprowadzaniu informatyki do polskiej 
oświaty. 

Piotr Bematek 


I czmNiE 

5 DANYCH 
Z POWTÓRZENIAMI 


Czasami zdarza się, że dane do obliczeń zawierają 
długie oągi takich samych elementów. Aby umknąć 
wiełokrotnego wprowadzania z klawiatury tych samych 
liczb warto w takim przypadku pisać dane w specjalny 
sposób. Czytane dane można umieścić w zmiennej 
tekstowei, liczbę która się powtarza kończymy zna¬ 
kiem mnożenia, a po nim piszemy liczbę powtórzeń. 
Zatem dane do obliczeń: 
31111114-12222222000000004 
można napisać tak 
3 1.6 4-1 2.7 0.8 4 

Program mający czytać dane w ten sposób powinien 
zawierać opis następującego podprogramu czytania: 
9000 REM Podprogram czytania daoych z powtórze¬ 
niami 

9010 REM Janusz Sz. 1987 

9020IF lp>1 THEN LET lp=lp-1 RETURN 

9030DIMaS(15) 

9040 INPUT .1 - ■ LINĘ a$(1 TO 15) 

9050 LET i$»=.1"; LETIs-0: LETPoz-16 
9060 FOR Z-t TO 15 
9070 IFa$(z)=..'THEN LETpoz-z 
9080NEXTz 

9090 LET li=VAL a$(1 TO poz -1) 

9100 IF poz 016 THEN LET i$-a$(poz+1 TO 15) 
9110LETIp-VAL iS 
9120 RETURN 

W powyższym pdprogramie zmienna Li zawiera aktual¬ 
nie czytaną liczbę, a zmienna Lp zawiera liczbę powtó¬ 
rzeń. 

UWAGA: PRZED PIERWSZYM WYWOŁANIEM POD¬ 
PROGRAMU NALEŻY BEZWZGLĘDNIE POD ZMIEN¬ 
NĄ Lp PODSTAWIĆ WARTOŚĆ 1. 

A oto przykład programu wykorzystujący podprogram 
czytania: 

10LETIp>1:DIM a{5.5) 

20FORi=1 TOS 

30FORj-l TOS 

40 GO SUB 9000: LET a(i.j)=li 

50NEXTJ 

60NEXTi 

70 FOR 1-1 TOS 

80FOR)-1 TOS 

90 PWNT a(i.i); 

100 NEXTj 
110PRINT 
120NEXTi 
130 REM 

140 REM dalszy ciąg programu 
150 REM 
500 STOP 

Czytane wartości znuennei tabkcowej a(i,i) wykonuie- 
my w programie przez wywołanie podprogramu instru¬ 
kcją GOSUB 9000 i podstawienie pod zmienną a(i.|) li¬ 
czby Li. 

Należy przy tym zauważyć, że dane pisane w zwykły 
sposób są także poprawnie czytane. Korzystanie z 
podprogramu wykazuje, że czytanie danych z powtó¬ 
rzeniami jest ba«lzo korzystne i przydatne, gdyż w 
istotny sposób skraca liczbę znaków wprowadzanych z 
klawialury. 

Dla mikrokomputerów pracujących w systemie CP/M z 
interpreterem BASlC-80 firmy MICROSOFT podpro¬ 
gram czytania wygląda narstępująco: 

9000 IF lp>1 THENLET lp-lp-1: RETURN 
9010 INPUT aS: LET mi-INSTR (a$.'.") 

9020 IF mi-0 THEN LET li=*VAL(a$): RETURN 
9030 LET lp=VAL (RIGHTS(a$.LEN(aS)-mi)) 

9040 LET li=VAL(LEFT(aS. mH)) 

9050 RETURN 

Zmieniając w instrukcji 9010 INPUT aS rta READ aS 
można odczytywać dane z instrukcji DATA. 

Janusz Szczerbiński 
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PROGRAMOWAĆ MOŻE KAŻDY 


Większość osób pi¬ 
szących programy na 
swoich komputerach 
korzysta z języków wy¬ 
sokiego poziomu ta¬ 
kich jak Pascal, Basic 
czy Fortran. 

Niekiedy jednak zachodzi koniecz¬ 
ność posłużenia się assemblerem lub 
wręcz kodem maszynowym. Dotyczy 
(o szczególnie procedur blisko zwię- 




Va1/ 


r\ 


zanych ze sprzętem. Programowanie 
w assemblerze jest dość trudne, 
choćby z powodu rozbudowanego re¬ 
pertuaru rozkazów procesora. 

W tabelce 1 przedstawiliśmy zwię¬ 
zła listę operacji realizowanych przez 
Z80. Zestawienie to będzie idealnym 


narzędziem dla wszystkich, którzy 
będę musieli napisać lub zrozumieć 
krótki program w assemblerze lub ko¬ 
dzie procesora Z80. Napisanie INLI- 
NE’a w Turbo Pascalu lub utworzenie 
niewielkiego PSX'a to dwa typowe za¬ 
stosowania. Posługiwanie się tę tabel- 


(C) JH 1988 


LISTA ROZKAZOM HIKR0PR0CES0RA ZBB 


B 


LD A, . 

LO B, . 

LO C, . 

U) D, . 

U) E, . 

U) H, . 

U) L, . 

U) (H.), 

U) (BC), 

U) (DE), 

U) tnn), 

LD . ,tIXłd) 
U) . ,tIY*dl 
U) (IXłd), . 
U) tlYłd), . 
LD (IXłd),n 
LD (lYłd).n 
U) i,A 
U) R,A 


jsstrw 


B - 

(HL) (BC) (DE) (nn) 

n 


7E BA lA 3Axxxx 3Exx 

ADD 

46 

06xx 

ADC 

4E 

0Exx 

SU6 

56 

16xx 

SBC 

SE 

łExx 

fWD 

66 

26xx 

X0R 

6E 

2Exx 

OR 


36xx 

(3 

INC 

DEC 

0 E H 

L 



bitOM rcskłzy ladoMfiia rejMtrw 

A B t D E H L - 

7F 78 79 7A TB TC 70 
47 46 41 42 43 44 45 
4F 48 49 4A 4B 4C 40 
57 50 51 52 53 54 55 
5F 58 59 5A 56 5C 50 
67 86 61 62 63 64 65 
6F 68 69 6A 6B 6C 60 
77 70 71 72 73 74 75 
62 
12 

32i(xxx 

ABC 

DD7Exx DD46xx DD4Exx 0D66xx DD5Exx DD66xx bD6Exx 
FD7Exx FD46xx F04Exx FD56xx FD5Exx FD66xx FD^x 
0D77xx DD7exx DD71xx DD72xx DD73xx DD74xx DD75xx 
FD77xx FD7bx F071xx F072ix F073xx F074xx FD7&x 
DD36xxxx 
FD36xxxx 

E047 U) A,I E057 

ED4F U) A,R EDSF 


bitoMe rozkazy arytietyczne 
A B C 0 E H L »Ł) 


87 

BB 

81 

82 

83 

84 

85 

86 

BF 

88 

89 

BA 

88 

BC 

80 

BE 

97 

90 

91 

92 

93 

94 

95 

96 

9F 

98 

99 

9A 

9B 

9C 

90 

9E 

A7 

A0 

Al 

A2 

A3 

A4 

A5 

A6 

HF 

Ae 

A9 

M 

AB 

AC 

AD 

t£ 

97 

68 

BI 

B2 

B3 

B4 

BS 

B6 

BF 

B8 

B9 

BA 

BB 

BC 

BO 

BE 

3C 

04 

BC 

U 

łC 

24 

2C 

34 

30 

B5 

00 

15 

10 

25 

20 

35 





s 

H 

P N 

C 

CPL 

21 


- - 

1 

- 1 

- 

NE6 

E044 

t 

t 

t 1 

t 

DAA 

27 

t 

t 

1 - 

1 


i logiczne 
n tIX4iJ) 
C6xx 0066xx 
CExx DDeExx 
06xx DD96xx 
DExx DD9Exx 
E6xx DDA6xx 
EExx DDAExx 
F6xx 00B6xx 
FExx DDEExx 
DD34xx 
DD35xx 


tlYłO) 

FD66xx 

FDeExx 

F096xx 

F09Exx 

F0A6xx 

F0A£xx 

F0B6xx 

F0BExx 

F034xx 

F03Sxx 


Z HP NC 

t t t 0 
t 
t 
t 
t 
t 
t 
t 
t 
I 


t t 
t t 
t t 


0 

1 

1 

0 0 


1 t 


1 


S Z HP NC 

t t 0 t 0 - 
l I 0 I 0 - 


16 - bitone rozkazy laikMania rejistroH 

BC DE HL SP IX lY 

81xxxx llxxxx 21xxxx 31xxxx 0D21xxxx F021xxxx 

ED46xxxx E0S6xxxx 2Axxxx E07Bxxxx CD2Axxzx FD2bxxx 

EI>43xxxx ED53xxxx 22xxxx ED73xxxx 0D22xxxx FI)22xxxx 

F9 W)F9 FDF9 


.m 


LD 

[o 

LD ifWli** 

LD SP 


BC DE HL AF IX lY 

PUSH.. CS 05 E5 F5 DDES FDE5 

PDP .. Cl 01 El FI DDEl FDEl 


EX DE,IL 
D AF,AF' 
EXX 


EB 

06 

09 


(BC-BC',DE-DE’ 


EX (SP),HL E3 

EX ISP),IX DDE3 

EX ISP),IY FDE3 


rozkazy dotyaace pojedynczych bitoM 
A B C 0 E H L 

BIT 0 CB47 CB4B CB41 CB42 CB43 C844 C845 

BIT 1 CB4F CB48 CB49 CB4A C84B C84C C84D 

BIT 2 CB57 CBS0 CB51 CBS2 CBS3 CS54 CBS5 

BIT 3 CB5F C6S8 CB59 CB5A CB3B CB5C CS5D 

BIT 4 C667 C660 (361 CB62 CB63 C866 C865 

BIT 5 CB6F CB68 CB69 CB6A C66B C86C CB60 

BIT 6 CB77 (370 CB71 (372 (373 (374 (375 

BIT 7 CBTF (378 (379 (37A (37B (37C (370 

RES 0 (387 (386 (381 (382 CB83 C884 CB8S 

RES1(38F(388(389(38ACB8B(38C(38D 
RES 2 (397 (390 CB91 (392 (393 (394 (395 
RES3CB9F(398(399(39A(396(39C(39D 
RES 4 (3A7 (3A0 CSAl (3A2 (3A3 (3A4 (3A5 
R£SS(3AF(3A6(3A9(3MCBABCBAC(3A0 
RES 6 (387 (380 CBBl (382 CBB3 C3B4 CBBS 
RES 7 CS8F (388 C889 C88A (386 CBBC CBBD 
SET 0 (3C7 (3C8 CSCl C8C2 (3C3 I3C4 (3CS 
SET1C8CF(3C8(3C9C8CA(3(3I3CC(3CD 
SET 2 C807 (300 (301 (302 C3D3 1304 (305 
SET 3 CBOF CBOe (309 CSOA CSOB CSOC (300 
SET 4 (3E7 (3E0 CSEl (3E2 C8E3 (3E4 (3ES 
SET 5 C6EF C6E8 (3E9 (3EA CEEB CSEC (3ED 
SET 6 (3F7 CBFB CBFl (3F2 (3F3 (3F4 C8F5 
SET 7 (3FF CBFe I3F9 CEFA (3F6 (3FC (3FD 
SZHPNC SZHPNC 
BIT ?I1?0- SET . 


(HL) 

(346 

(34E 

(356 

(35E 

(366 

I36E 

(376 

cm 

(386 

(38E 

(396 

(39E 

OA6 

(3« 

(386 

CBBE 

(3C6 

C8CE 

(306 

CBOE 

(3E6 

C6EE 

(3F6 

CBFE 


RES 


(IXłd) 
DD(3xx46 
DD(3xx4E 
DDCBxx56 
DDCBxxSE 
DDCBxx66 
DD(3xx6E 
DD(3xx76 
DDCBxx7E 
DDCBxx66 
DD(3xx6E 
DDCBxz96 
DDCBxx9E 
DD(3xzA6 
0D(3xz(C 
0D(3xxB6 
DDC8xxBE 
D{IC6xxC6 
D(ICBxxCC 
DD(3xxD6 
DDCBxxDE 
DXBxxE6 
DDCBxxEE 
DDCBxxF6 
CDCBxxFE 
S Z H 


(lYłd) 

FDCBxx46 

FDCBxx4E 

FDCBxxS6 

FDCBxxSE 

F0CBxx66 

F0CBxx6E 

FDCBxx76 

FDCBxx7E 

FDCBxz66 

FD(3xx6E 

FDCBxx96 

FDC8xx9E 

FD(3xxA6 

FD(3xxł£ 

FDCBxxB6 

FDCBxxBE 

FDCBxxC6 

FDCBxxCE 

FDCBxx()6 

F0CBxxDE 

FDCBxxE6 

FDCBxxEE 

FDCBxxF6 

FD(3xxFE 

PNC 


operacje przewNu cyklicznego i arytaetycznego 


A 6 C 0 E H L (HL) (lX4d) 

RR (31F C61B (319 C61A (31B C61C (310 (31E DD(3xxlE 

RL (317 C610 C611 C612 (313 CSU (315 (316 D0(3xxl6 

RRC (3eF(30e(309(30A(386(3eC(3eO(30E DD(3xx0E 
RLC (387(300(381 (302(303 0804 (305(386 DD(3xxB6 
SRA (32FCB28CB29CB2AC82BCB2C(32D(32E DDC8xx2E 
SLA (327 (328 (321 CB22 C823 (324 (325 (326 DDC8xx26 

SRL (33F C838 C839 CB3A (33B (33C (330 (33E DDC8xx3E 


SZHPNC 


SZHPNC 


(lY+d) 

FDCBxxlE 

FDC8xxl6 

FDC8xxBE 

FDC8xxB6 

F(IC6xx2E 

FDCBxx26 

F(IC6xx3E 


(neguj akuaulator) 

(zaien znak akuaulatora) 
(korekcja dzieuetna) 


16 - bitone rozkazy arytaetyczne 

BCDEHLSPUIY SZHPNC 

INC .. 03 13 23 33 0023 F023 . 

DEC .. 68 IB 2B 38 002B FD2B . 

ADO H,,.. 09 19 29 39 - - t - 0 t 

ADC H.,.. ED4A ED5A ED6A ED7A t I I I 0 t 

SBC HL,.. ED42 EI)52 E062 E072 I I t I 1 I 

ADO IX,.. 0009 0019 0039 0029 - - I - 0 I 

ADO lY... FO09 F019 F039 FD29 - - I - 0 I 


rozkazy przesuniK bloku i szukania S 
LOI EDA0 (LO(DE),(IŁ);INC ILiINC DE;DEC EC)- 
LOIR EDB0 - 
LOD EDAB (L0(DE),(IŁ);DEC ll.;DEC DEjDEC EC)- 
lODR EDB8 ’ ’ ’ . 
CPI EDAl (LO A,(HL);IM; HL|DEC BC) t 
CPIR EI»1 t 
CPD EDA9 (LO A, (ll.);DCC HL;DEC BC) t 
CPOR ED69 t 


Z H P N C 

- 0 t 0 - 

- 0 0 0 - 
0 I 0 

0 
I 
I 
I 
t 


0 

1 

1 

1 

1 - 


rozkazy nejKia/Myjscia - SZHPNC 

IN .,(C) £078 EDM E048 ED50 EDS6 EO60 ED68 I t 0 I 0 - 
OUT (C),.E079 ED41 ED49 EDSl EDS9 £061 ED69 
IN A,n DBxx 
0UTn,A D3xx 


INI EDA2 (IN (HL),(C);INC HL;DEC B) 
INIR E062 

IND EDM (IN (ll.),(C);DEC IŁ;DEC B) 
INDfi EOBA 

OUTl EDA3 (OUT (C),(HL);INC IŁ;DEC B) 
OTIR EDB3 

OUTD EDAB (OUT (C),(IŁ);DEC IŁ;DEC B) 
OTDR EDBB 


Z HPNC 
l??l- 
1 ?? 1 - 
l??l- 
1 ?? 1 - 
l??l- 
1 ?? 1 - 
I ? ? 1 - 
l ? ? 1 - 


rozkazy iterujace CPU 


NOP 

HALT 

El 

DI 

IN 0 
IN 1 
1 H2 


00 

76 

FB 

F3 

E046 

ED56 

EOSE 


(pusta operacja} 

( zezHOI na przenunia) 
( zabroń przernan) 


SZHPNC 


RR/RL 

1 t 0 1 0 1 

RRCA 

BF 

- - 0 - 0 1 

RfiC/RLC 

t t B t 0 t 

RLCA 

07 

- - 0 - 0 1 

SRA/SLA 

1 1 0 t 0 1 

RRA 

IF 

--B-ei 

SRL 

110101 

RLA 

17 

- - 0 - 01 



RLO(HL) 

ED6F 

IIBIB- 



RRD(HL) 

ED67 

t 1 0 1 0 - 


CCF 

SCF 

3F 

37 

(neguj carry flag) 
(ustaN carry fla^ 


t - 
0 - 

0 1 

- 1 

rozkazy stcrujacei skoku, procedury, itp. 

•tar. JP JR CALL RET 

RST 

Z 

Cbxxx 

28xx CCxxxx 

C8 

RETI E04D 

00 

C7 

NZ 

C2xxxx 

20xx C4xxxx 

C8 

RETN £045 

88 

CF 

C 

DAkxxx 

38xx 0Cxxxx 

08 

DJNZ 18xx 

10 

07 

NC 

02xxxx 

30xx D4xxxx 

00 


IB 

DF 

PE 

EAkxxx 

ECxxxx 

EB 


20 

E7 

PO 

E2xxxx 

E4xxxx 

E0 


28 

EF 

H 

FAxxxx 

FCxxxx 

FB 


38 

F7 

P 

F2xxxx 

F4xxxx 

F0 


38 

FF 

(bez) 

C3xxxx 

18xx C0xxxx 

C9 





bit flaga 
S 
Z 
X 
H 
X 

P/V 
N 
C 


(rejestr F) 


nazna 

Sign flag 
Zero flag 


Half carry flag 

Parity/oVerfloM flag 
Add/Subtract flag 
Carry flag 


(oznaczania) 

1 - ustaniona 
0 - opuszczona 
t - zalezy od op. 
? - nieokreślona 
- - niezBieniona 


kę pozwoli nie wprowadzać „nowych” 
— nieistniejących rozkazów typu add 
ix.hl lub podobnych. 

Na rys. 2. zestawiono oddzielnie 
często używane rozkazy przesunięć 
cyklicznych i arytmetycznych, których 
zrozumienie powoduje nie rzadko 
problemy przy analizie programu. 

Przedstawione „pomoce naukowe” 
znajda zastosowanie dla komputerów 
z mikroprocesorem Z80: ZX81. ZX 
Spectrum, Amstrady CPC 464/664// 
6128. PCW 8256/8512. Meritum, TRS 
80. SHARP MZ. (Jommodore Cl 28 i 
innych mniej typowych. 

Namawiamy użytkowników pozo¬ 
stałych popularnych komputerów, głó¬ 
wnie ATARI XL. Commodore C-64. do 
sporządzenia podobnych zestawień. 
Profesjonaliści mogliby zająć się IN- 
TEL'em 8088 (IBM PC) lub Motorolą 
68000 (ATARI ST. AMIGA). Jesteśmy 
przekonani, że zainwestowanie 
„paru" godzin w przygotowanie po¬ 
dobnych tabelek dla innych kompute¬ 
rów pozwoli w przyszłości zaoszczę- 
fzić wiele czasu, wielu ich uzytkowni- 
<om. Chętnie je opublikujemy. 

Jonasz Mayer 


Rozkazy przcsunifi cykltcznych i aryt¬ 
metycznych 




<-[i 


e-< 


D 


RLC 


1^<—7 


0-< 


J 


RL 




o-<- o 


SLA 



l> 

7 


e 



>0 


RRC 




W 


RR 




->§ 


SRA 


e -> 




SRL 


BAJTEK 12/88 


23 
















































































































nowa gwiazda; 

LC"10 


Najwyższy poziom technologii japońskiej: 


Szeroki wybór zestawów znaków: 





Łatwość użytkowania: 

Szybkość druku: 

Druk kolorowy: 
Rewelacyjne ceny: 

Pełna oferta: 


Funkcja „PAPER PARK”, możliwość stosowania 
pojedyńczych stron oraz papieru z perforacją. 

8 różnych krojów wbudowanych w drukarkę i zna¬ 
ki ASCII/IBM; wersja Commodore C-64/128; zna¬ 
ki dowolnie programowane. 

Kilkanaście funkcji wybieranych za pomocą przy¬ 
cisków na obudov^ie. 


120 lub 144 zn/sek w trybie standard: 30 lub 36 
zn/sek w trybie korespondencyjnym. 

Wersja LC-10 colour, drukuje w 7 kolorach! 

LC-10 lub LC-10C (do C-64/128) — DM 450 
LC-10 colour lub LC-10C colour— DM 590 
plus transport: DM 40, kabel: DM 20 

Oczywiście oferujemy Państwu pełną gamę dru¬ 
karek Star łącznie z najnowszą drukarką lase¬ 
rową LS-08 (8 str/ min), 1MB, kompatybilna z HP 
Laser Jet II) za DM 4500. 







ABC Data Im- und Export GmbH 
AugustastraBe 40. 5300 Bonn 2, RFN 
tel. Ó228/35.44.80.-90. telex 88.55.66 


'Rv(;^(lrukaitea 


ABC Compulersyslems 
Alt Moabit 80 
1000 Berlin 21 
lei. 391.50.99 
Telex 181.365 


ABC Dala GmbH 
Ditmar-Koel-Sir 13 
2000 Hamburg 11 
tel- 31.40.03 
Telex 21.66-002 
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Interlac* 

do ATARI i do SPECTRUM 
drukarki. Joysticki, do dowoinsgo 
magrMtofonu 
również — TURBO. 

Sterowniki dzwonków szkolnych, 
makiet, reklam I Inne. 

PAWTRONIK Warszawa 

tel. 659-38-44 
D-206 


Masz LOW 2000 SUPER? 
Potr;k<j» u progrłmnqjeqr.(>MElOAD6fr 
— 180K6 nł Słone dystoida, 

—3 X srybsit czytane procnrró). 

—rany tngntnór <to 19 ocenTrydi znSóe 
hloraiqg po niManu loperty zwroM) le zneczbim 
BarameiLeelcii fl«ynorti47/4CS^Opeie 

G-131 


Agencyjny Zakład Usługowy SPHW 

poleca usługi w zakresie: 

— serwis mikrokomputerów 
SPECTRUM, C-64, TIMEX 

— gry i programy na SPECTRUM, 
ATARI, C-64 

Warszawa ul. Puławska 102 
lei. 44-87-89 

czynny 12-19. Gwarancja, rachun¬ 
ki. Zakład przeniesiony z ul. Moko¬ 
towskiej 61. 

D-197 


PC plus Usługi Komputerowe 
91-160 Łódź, ul. Menela 44, tel.557575 
KOMPLEKSOWA OFERTA DLA 
MIKROKOMPUTERA 
SpectraYideo SVI-738 : 

* Bogate,własne oprogramowanie systemowe, 
narzędziowe i aplikacyjne. 

* Poprawajakości wyświetlania ekranu. o 

* Rozszcrycnic możliwości graficznych Q 


„BETA B” 

AGENCJA 

INFORMATYCZNA 

Telefon 632-935 690-385 
41-200 Sosnowiec, skrytka 254 

oferuje również wysyłkowo: 
Programy, Instrukcje, 

Literaturę dla komputerów 

ACORN AMSTRAD ATARI 
COMMODORE SHARP IBM 

K-106 


STUDIO KOMPUTEROWE 

ATARI-BAJT 

ATARI* AMSTRAD 
COMMODORE •SPECTRUM 

oferuie: 

najrK>wsze programy edukacyjne, 
uż^kowe, gry. opisy 
mterlejsy do wpisywania programów 
z każdego magnetofonu i 
TURBO — inlerlace ATARI 
FINAŁ II — C 64 

lei 20-80-34 Warszawa do zamówie¬ 
nia katalogi-gratis 

D-151 


ZX SPECTRUM! 

Nowy, oryginalny zestaw programów 
eksperymentairro-użytkowych TOTO 
(DL. SL, Ex, ZS)I 
typowania komputerowe 
wprowadzanie własnych liczb 
losowanie graficzne 
I sprawdzanie (60 kuponów w Ss) 
przykładowe wygrane 
inne możliwości 

Cena programu dla Jednej gry — 

880 zł -f cena kasety. 

Zamówienia: MASTER BIT 

61-660 Poznaó 31 
akr. 56 

D-182 


ATASERW 

43-100 TYCHY 
ul. Lencewicza 46/3 
tel. 27-69-66 

oferuje świetne rozwiązania sprzę¬ 
towe 

do ATARI XL/XE: 

1. Ataserw DOS-pierwszy DOS 
na kartndżu. 

2. TOP DRIVE 1050 —wersja 3.0. 

3. PKiRO ŚWIETLNE —wersia 4.0. 

4. BASIC XE-kartridż oraz kartri¬ 
dże z dowolnym programem. 

5. Rozszerzenia pamięci do 128 i 
256 kB. 

6. Programator pamięci EPROM 

7. Interfejs Alan — Centronics. 

8. Oprogramowanie użytkowe. 
Informacje po otrzymaniu koperty 
zwrotnej, dla instytucji rachunki. 

K-212 


ATARI XUXE 

Bardzo duży wybór oprogramowa¬ 
nia z opisami, rkjwości, co dzic^ta 
gra grata, wysyłka na cały kraj. ka¬ 
talog po przesianiu kop^ i znacz¬ 
ka. porady dla początkując^, gwa¬ 
rancja Jakości. TANTAL Warszawa 
ul. Staszica 13 (przy DT Wola) 
tel. 32-70-60 Zapraszamy 

(SB 11) 


ATARI 

Zakład Elektroniczny .TURBO" oferuje 
sprawdzone, niezawodne interfejsy, 
które pozwolą zaoszczędzić Ci wiele 
doiarOw i złotówek. 

1 ) przystawka unwżbwiająca współpra¬ 
cę komputera z dowolnym magneto¬ 
fonem — w pełni zastępkije magne¬ 
tofon firmowy, a ponadto Osiada: 

— wyłącznik aulo-slODu 

— układ do kopiowania magne- 
tofon-magnetofon 

— bardzo wysoką czułość odczytu 

2 ) przystawka foniczna z głośnikiem 
umożliwiająca odbiór lonii bez ko¬ 
nieczności przestrąjania komputera i 
telewizora 

3) szeroki wybór gier I programów użyt¬ 
kowych na ATARI 

Piszcie na adres: Z.E. TURBO 

39-300 MIELEC 3 skr. p. 4 
lei. 65 wewn. 26 
ROCZNA GWAR/VNCJA! RACHUNKI' 
G-137 


—ATARI— 
ZX SPECTRUM 

INSTRUKCJE 

OPISY 

LITERATURA 

Szkoły i Kluby — Zniżka 
Katalogi — Gratis 
Co piąty program — Gratis 
Wysyłka na cały kraj 
Wypożyczalnia programów 
D.H. „Sezam" II p.g. 16.00-19.00 
00-849 Warszawa UPT 66, skr. p. 14. 


V 


WOJEWÓDZKIE 
''RZEDSiąeiORSTWO 
HANDLU WEWNĘTRZNEGO 
ODDZIAŁ W TYCHACH 


IDEOBIT 


43-100 Tychy, aleja ZMP 77 
tel. 27-69-75 
Poleca dla j.g.u.: 

— minikomputery 8-bitowe 
(Atari, Commodore, 
Schneider-Amstrad) 

— minikomputery 16-bito- 
we kompatybilne z IBM 
PC 


— drukarki 10" i 15” firm 
STAR, EPSON, AM¬ 
STRAD 


— magnetowidy 

— kamery video 

— anteny satelitarne 

— aparaturę badawczo- 
-naukową 

Zapewniamy o atrakcyjnych 
cenach. 

G-7 


ATARI I SPECTRUM 
I SHARP! 

noMŚd progninoiw 

instliowinii TURBO w ATAftiOezplitnief 

horołliopif IndywWuilncL NOWOŚĆ!!! 

wysyli peolą onz dm* ni riMjłcu 

ASTRO-KOMPUTER STUDIO 

54415 WROeUW, Gdacjuszi 39 (abul 139) 

G-t33 


MICROMAN 

Programy na Atari XL/XE. 
Spectrum 48 KB, Ckjmmodore 
16/116/-I- 4 na miejscu lub za 
zaliczeniem pocztowym. Infor¬ 
macje za zalęczeniem koperty 
i znaczka pocztowego. 40-181 
Katowice, ul. Osikowa 66, tei. 
58-51-06. 

D-204 


— 7000 typów elementów elektronicznych to nasz program 

— 777 układów scalonych to nasza oferta stała 

— diody, wyświetlacze, tranzystory, kondensatory, kwarce i 
rezystory z importu oraz dekodery PAL według potrzeb 
klienta 

— najpełniejsza informacja techniczna z oryginalnych kata¬ 
logów producenta 

— towar zawsze wysokiej gwarantowanej jakości 

— stabilne ceny 

— ewentualna kompletacja pod zamówienie tylko w specjali¬ 
stycznym sklepie 

Przedsiębiorstwo 
Obrotu Maszynami i Surowcami 
„BOMIS” PSD nr 10 
61-825 Poznań 

ul. Krysiewicza 5, Tel. 532-531 
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Przedsiębiorstwo Zagraniczne KAREN 

ul.Obrońców 23, 

03-933 Warszawa 
tel. 17 84 10 
tlx 813948 kran pl 


Szanowny Panie Dyrektorze, 

Dziękujemy za zainteresowanie naszą firmą. 

7. przyjemnością wformujemy. że możemy zaspokoić wszystkie potrzeby 
Pana Przedsiębiorstwa określone w skierowanym do nas zapytaniu. 

1. Oferujemy niezawodne i jednolite systemy komputerowe typu PC/XT/AT/3B6. 

2. Instalujemy adaptery i oprogramowanie sieciowe ETHERSET. 

3. Do Zakładu Poligrafii polecamy zestaw ATARI ST DESKTOP PUBLISHINC 

bogato oprogramowany i oczywiście z polskimi literami. 

4. Do Klubu i Szkoły proponujemy ośmiobitowe ATARI XE. 

Proszę nie niepokoić się o "wsad dewizowy" - to wszystko jest za złotówki. 
Sprzęt objęty jest roczną gwarancją a przy odbiorze będzie mógł Pan uzupełnić 
swoje zbiory oprogramowaniu i literatury. 


SB —4 


Z poważaniem, 

DZIAŁ HANDLOWY 



„Systemy wspomagające umożliwiają nowoczesne 
projektowanie uruchamianie i testowanie systemów 
mikroprocesorowych. Zakłady Urządzeń Komputero¬ 
wych MERA-Elzab (41-808 Zabrze ul. Kfuczkows- 
kiego 39 tel. 72-20-21) produkują systemy wspomaga¬ 
jące RTDS wyposażone w emulatory układowe mikro¬ 
procesorów: 

• w systemie RTDS-8 m 3 

Intel 8080 i 8085, Zilog 80, Intel 8048 

• w systemie RTDS-16 i RTDS/2-PC 
Intel 808818086 

W przygotowaniu emulatory mikroprocesorów: Intel 
8031/51,80186/188,80286,80386, V20, V30. 

Zakład Systemów Automatyki Kompleksowej PAN 
(44-100 Gliwice, ul. Bałtycka 5 tel. 31-08-11 wew. 197) 
zaprasza w każdy ostatni piątek miesiąca o godzinie 
11.00 na seminarium połączone z pokazem nt. syste¬ 
mów wspomagających z rodziny RTDS. 

(SB 10) 


CZĘŚCI ELEKTRONICZNE 

pochodzenia zagranicznego za złotówki 

— układy TTL, LS, CMOS, inne 

— mikroprocesory, pamięci, dyskietki. 

Krótkie terminy dostaw, atrakcyjne ceny. 
Pośredniczymy także przy sprzedaży. 

”MARITEX” tel. 22-02-89 

Gdynia, Bat. Chłopskich 3, tlx 054622 

(SB 6) 
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PROGRAMOWE i SPRZITOUEi 

DLA WSZYSTKICH ATADI ' 
H O D E L i ninm 
ORAZ KOMPUTEROM PRACUJĄCYCH 
P 0 D 
SYSTEMEM 

UYSYL/i poczm 

Knnipijłrroufa I. 

■ł 1-200 Sos.itow.-icc K-91 



ATARI 

COMMODORE 
C16 C64 C+4 

— Największy wybór progra¬ 
mów 

— Ekspresowa obsługa 

— Ceny — prawie za darmo 

— Literatura 

— Katalogi gratis 

KOMBIT 

Zwycięstwa 143/6 
75-950 KOSZALIN 


G-124 




JOYSTICK 

SERYICE 


Nit pe(>tlnloJ Nr<iu kupują Pytfck I 
ZltctJ^ nom nęprowt tythojńl 
ir««*rofnV TwoJ ukiblony pjwtk* 
icAtty , em IrwNtiy od nottgo 

* wymiaTui standanCowych styków 
na miitrejgrsalacsnifci 
•• najjraua 

Pmndikny tktptdycp pocttemi. 
kifomoep po nodttkmlu kep^y nrolotj. 

Zf/ositnlo: Studio kompulorom SEZAU 
D.H. ‘SEZAM’fp. - aworikl 16" - W 
Kompeodtnep : MYSJICK SEjnKE 511 
02-770 Yfonzowo IZO afcr. pocxt f02 T 
M. ęrz^cjn. 41-22-22 ^ 


19 ATARES” spotka z 0 . 0 . CłtorzOw 

Batory, JoSKOowa 3. tal. 417-573 oienjfe- 
oprogramowanfa ,^aii". .Commodora*. 
.Spartrum". system .Bliziard Toitw". magne- 
lolon .Atari' po przorOboe czyta 10 razy szyb- 
craj i pewrua). roczna ewartncja. cena 33.200 
złotych system .Crystal Sound' do digitalizagi 
(Uwięku >tan*. oeoa 15.500.- kotiss, skup. 
•przedaZ kompuiorOw. RTV, vldeo. 

K-217 


.MIKfiOELEKTRONIKA OD PODSTAW DLA 
KAŻDEGO- 

Bryskswicznie. tamo. tewcrscytna metoda — 
od prawa Ołima do poznania moZliwoici i wnę¬ 
trza mikrokompuierOw Wysydtowa sprzodai 
wiedzy oraz płytek do samodziomego rrontalu 
nvkrokompuiera CA80 ukiarunkowanago na 
sterowania 

Szczegółowa wietotomowa dokumentacja m- 
formacje — koperta zwrotna ze znaczkiem 
-MIK" Slanistew Gardymk 05-090 Raszyn 

D-157 


Oyescetlu lirmowe PRECI9I0N. BASF, 3M. 
MAXELL. Bonus. Dysan, Verbatim — naaanlij 
od dostawcy z U.S A 

Inłomiacłe. ceniłki: .EhtkSonlka-. K/akOw 
Proszowicka 9. te 34-19-10 

D-IB5 


STARSG—10 Commociore. zaiTHertię 1 
na Centrnnikc lub sprzedam 
lei. 6627-237 

D-194 


Układy scalone COMMODORE 
poleca 

Unisenrice skrytka 40 
33-110 Tarnów 2 

G-138 


Bogaty wybOr polskrth wersji najciekawszych 
MT na ZX SPECTRUM olerue: 

Jarostiw Stcpień. Chojnowska 13 m 10 
59-220 Legnica oraz 
Jarosław Szaraki. Kilińskiego 27 m 17 
96-300 Żyrardów G-141 


Najmłodszy miliorder 


Wiliam Gates, dla Amerykanów po prostu: Bill 
— cudowne dziecko (32 lata) biznesu, którego 
droga do sukcesu potwierdza głęboko zakorze¬ 
nioną w społeczeństwie legendę pucybuta. Swo¬ 
je miliony Bill zarobił sam. 


w ubiegłym roku fachowcy z tygodnika 
.US News and World Report” ocenili go 
na 750 min, co dav/ało mu wówczas 16 
miejsce na liście stu najbogatszych 
Amerykanów. W tym roku Wiliam H. Ga¬ 
tes III — tak brzmi jego pełne nazwisko, 
dostał się już do klubu miliarderów wy¬ 
kreowanego przez FORTUNE — pismo, 
którego 48 reporterów i korespondentów 
zagranicznych oraz setki konsultantów i 
analityków pisma przetrząsnęło świat 
cały w poszukiwaniu miliardowych por¬ 
tfeli. 

W rezultacie powstał — zdaniem auto¬ 
rów — najbardziej zwięzły i wiarygodny 
ranking najbogatszych, w których gronie 
najmłodszym jest właśnie Bill z kapitałem 
prawie dwa razy większym niż w roku 
ubiegłym (1,4 mid). Na tej liśole daje mu 
to zaledwie 79 pozycję, a do prowadzą¬ 
cych stawkę sułtana Brunei czy amery¬ 
kańskiej rodziny Marsów brakuje mu — 
kolejno — dwadzieścia i dziewięć razy 
więcei Zważywszy jednak dynamikę 
wzrostu jego dochodów łatwo wyliczyć 
można, kiedy młody jeszcze Gates osię- 
gnię czoło stawki miliarderów — po ame¬ 
rykańsku to lepiej: bilionerów. 

Póki co zadje się nie zwracać uwagi na 
wysokość konta zadawalajęc się tym. co 
sprawia mu największe przyjemność — 
tworzeniu oprogramowania. Jego udział 
w Microsoft Corp. której jest prezesem, 
głównym strategiem, sympatycznym 


szefem i najlepszym sprzedav/ce wynosi 
prawie 42 procent 

Pozwala mu to na niepodzielne panowa¬ 
nie nad spółką założoną 12 lat lemu 
wspólnie z przyjacielem — Paulem Alle¬ 
nem. który tak jak i on wyrzucony został 
wcześniej z Harwardu. 

Nie od razu jednak Microsoft zbudo¬ 
wano. Paul i Bill zaczynali w sposób dla 
tej branży typowy: w garażu. Po kilku 
udanych próbach sprzedaży programów 
udało im się zainteresov/ać swoimi pro¬ 
duktami potężny IBM. W 1981 roku kon¬ 
cern ten zakupił dla 11 milionów wypro¬ 
dukowanych przez Siebie mikrokompu¬ 
terów FC system operacyjny opracowa¬ 
ny przez Billa. I zaczęto się: wartość 
sprzedawanego przez Microsoft Corp. 
oprogramowania skoczyła z 32 min dola¬ 
rów V/ 1982 roku do 140 w roku 1986 i 
750 w roku ubiegłym. Przyszłość spółki 
jest zapewniona: szefowie IBM zapewni¬ 
li. że ich najnowsza generacja kompute¬ 
rów osobistych sterowana będzie rów¬ 
nież wg systemu oferowanego przez Mi¬ 
crosoft. 

Ale Billowi to już nie wystarcza — w 
szybkim tempie rozrasta się dział wyda- 
wn«»zy sjJółki. oferując tytuły książek 
niekoniecznie z dziedziny .kompuloroz- 
nawstwa”. 

Wszyscy śledzący karierę najmłodsze¬ 
go w USA (1 na świecie) miliardera pod¬ 
kreślają. iż Bill Gates okazał się nie tylko 


komputerowym geniuszem, lecz także 
zręcznym biznesmenem. W odróżnieniu 
od swych rówieśników z .innych gara¬ 
ży".od razu postawił na profesjonalizm w 
zarządzaniu, przyjmując na stanowisko 
dyrektora doświadczonego Jona Shirfe- 
ya (50 lal). Dla siebie pozostawił strate¬ 
gię. taktykę i technologię. Brzmi to po¬ 
ważnie i Bill zajmuje się tymi sprawami z 
impetem, pasją i przyjemnością. Bawi go 
to co robi i — jak twierdzą współpracow¬ 
nicy — zdarza się. że wrażnym klientom 
sam demonstruje zalety swoich progra¬ 
mów. 

Jako naczelny strateg i właściciel firmy 
panuje nad nią doskonale: 

— Każda rozmowna z nim o interesach 
jest wyczerpująca — twierdzi Jon Shir- 
ley. — Dedukuje błyskawicznie szukając 
luk w iwoich argumentach. Niech Bóg 
ma w opiece tego. kto rozpocznie z Bil¬ 
lem fachowy dyskurs nie przygotowując 
się doń solidnie w domu. 

A Bill jest przygotowany zawsze. W 
biurze pojawia się o 9.30 przyjeżdżając 
swoim czterodrz\mwym Jaguarem; 
kończy prawie zwykle ok. 1 w nocy — i 
tak przez sześć dni w tygodniu. Często 
zdarza się. że poprzez swój domowy 
komputer wydaje dyspozycje personelo¬ 
wi nad ranem i w niedzielę. 

Ile zarobi w roku przyszłym? 

Dotychczasowa dynamika rozwoju 
wskazuje, ze około 3 mid dolarów, co 
przesunęło by go to znacznie do przodu 
zarówno na liście amerykańskiej (w oko¬ 
lice drugiego miejsca), jak i w klubie mi¬ 
liarderów. 

Ale Bill nie powiedział jeszcze ostat¬ 
niego siowra. 

Franciszek Penczek 


0 R9 blslaj T Betlejei 
iO SESim fOO: GOSOB iOO 
20 SBSrOSS 200: GO SUB iOO 
30 KSSrOR 240: GO SIB iOO 
40 BBSTWS 240: GO SGB 100 
50 KSnffi 2T0: GO SOB 100 
60 RSSrOliS 2T0: GO SUB 100 
TO WSTCW 290: GO SOB 100 
90 SIO? 

100 RCAB nenl 
110 ra iii TO iifDBt 
120 KBAB cus,łnta 
130 K8T czas'3,mU 
I40III3T1 
ISORSmif 

200 wn 16.2,5.1,5,1.0,1,5 
210 DATA l,T,2,9,ł,9.1,7.l.9 
220 DAT1 1,10.1,12,1,14,2.12 
230 DATA 2,10,2,9,4.7 
240 DATA 10,2.12,1,12,1,10 
250 DATA 1,9,1,7,2,5,1,5 
260 UTA 1,0,1,5,1,9 
270 MTA 6, i, 12, i, 14,1,12 
260UTA 1,10,1,9,1,10 
290 DATA 6,1,12,1,12,2.14 
300 WTA 2,12,1,10,1,9,2,7,2,5 


0IBI rmbiełtli 40 Bellejd 
10 RESTOR 200: GO Stt 100 
20BBSTOn 200: GO 'S(Q100 
30 RESTOliB 230: GO SOB 100 
90 RSTCRS 230: GO SOB 100 
56 STOP 

100 BBAD lleml 
110 m 1-1 TO lleml 
120 BBAD cuSiinU 
130 EB8P cus/3,mU 
140 RIT 1 
150IST0n 

200 DATA 11,1,1,1,0,1,1 
210 DATA 1,3,1,5,l,3,l,5 
220 DATA 1,6,2,6,2,10,4,8 
230 DATA 20.2,13.1.5,6.0.5,6 
240 UTA 1,10,1,6,1,6,1,5 
250 MTA 2,6,1.5,6,0.5,10 
260 DATA 1,8,1,6,1,5,1,3,2,5 
270 DATA 2,6,4,8,2,5,2.3,4,1 


Zbliżają się święta, a z nimi 
choinki, prezenty i kolędy. Pro¬ 
ponuję stworzyć świąteczny 
nastrój przy pomocy naszego 
Spectrum. Nauczymy je w tym 
celu grać kilka najpopularniej- 


0 BS VirM nocnej cisrj 
iO RESrOIS 200: GO SIS iOO 
20 VBSm 200: GO SOB łOO 
30 BB5T0SS 230: GO SOB 100 
40 iifiSTtCB 230: GO SUB iOO 
50 BBSTCSS 250: 00 SOB 100 
60 STOP 

lOOKEADiienl 
110 ra 1:1 TO llemt 
120 fiSAB cias,mU 
130 RET C2as/3.mU 
140Rni 
150RB1Dlil 

2C0DATA 1012,5,1.7,1,4.2,5 
210 DATA 2,0.1,9,1,9,1,10 
220 DATA 1,7,4,9 
230 DATA 6,1.5,1,9,1,5,1,9 
240 DATA l.5.IO,a5.T,l.4,l,0 
250 DATA5,ł,5,l,5,ł,T,l,T,2,5 


szych kolęd. Wystarczy wpro¬ 
wadzić i uruchomić któryś z za¬ 
mieszczonych programów. 
Wesołych Świąt! 

Marcin Borkowski 


HEJ KOLĘDA, KOLĘDA... 
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“CiElDA 1 
.BAJTKA* 

(lysjf) 1 

P£ve 1 
BALTONA 1 
(USD) 

fifN ! 
(4r«L) 1 
(DM) 1 

SINCLAIR 

ZX-Spectrum 48 KB 

210 

115 

90 

ZX-Spectrum plus 

280 

— 

99 

TIMEX2(>48 

300 

146 

— 

ZX Spectrum -t- 2 

— 

— 

150 

ZX Spectrum -i- 3 

— 

— 

280 

COMMODORE 

Commodore 64 

550 

219 

299 

Commodore 128 

800 

299 

399 

Magnetolon 1531 

80 

48 

30 

Stacja dysiłietek 1541 

490 

— 

355 

Stacja dyskietek 1571 

550 

299 

465 

C-128D 

1.0 mb) 

— 

888 

Drukarka MPS 801 

490 

— 

— 

AMIGA 500 

2,1 min 

— 

999 

C-16 

190 

— 

90 

C-116 

160 

— 

75 

C-+4 

210 

— 

150 

ATARI 

ATARI 65 XE 

350 

125 

100 

ATAR1130 XE 

— 

199 

230 

Stacja dysKieiek 1050 

380 

185 

300 

LDW 2000 

450 

199 

— 

XC-12 

90 

48 

49 

AMSTRAD 

; 464 mon. monitor 

700 

— 

350 

464 kolor mon. 

800 

— 

680 





6128 mono. monitor 

1,0 min 

— 

689 

6128 kolor monitor 

1,2 min 

— 

988 

Stacja dyskietek do 464 

450 

— 

389 

• PC 1512 SD MD 

3,0 min 

— 

998 

Dyskietki 3" 

7 

— 

4-9 

Dyskietki 5 25' 

1.2 

— 

0.65 

Dyskietki 3.5" 

6.5 

— 

4-55 



Sklep BAJTKA w Bytomiu 
ul. Koniewa 6 tel. 81-57-01 


ZX-Spectrum 48 K 

130.000 

ZX-Spectrum plus 

175.000 

ZX-Spectrum *2 

280.000 

SEIKOSHA GP-50S 

120 000 

Commodore 64 

240-270.000 

Commodore 128 

380.000 

Commodore 128 D 

— 

AMIGA 500 

— 

Commodore 16 

120.000 

Commodore 116 

100.000 

Commodore +4 

165.000 

Magnetofon 1530 

50-60.000 

Stacja dysków 1541 

270000 

ATARI 65 XE 

190.000 

ATARI 130XE 

260-290.000 

XC-12 

60-65.000 

Stacja dysków 1050 

240-270.000 

LDW 2000 Super 

270.000 

464 mono 

340.000 




INDYWIDUALNY 

BANK 

DANYCH 


Atari 65 XE. stację dysków LDW Super 2000 oraz 
syntezator KORG. który pragnie wykorzystać do 
pracy z komputerem. Oprogramowanie: ponad 100 
gier. programy muzyczne. Adres: 59-7CiO Bolesła¬ 
wiec SI., ul. Zwycięstwa 8/1 
Marcin Sokołowski, lal 13. Posiada mikrokompu¬ 
ter Commodore Plus/4, magnetolon 1531. joystick. 
Oprogramowanie: gry oraz programy użytkowe. 
Zainteresowania: elektronika oraz mikrokomputery. 


Pragnie nawiązać kontakt z .plusowcami ’ w celu 
wymiany doświadczeń oraz oprogramowania. Ad¬ 
res; 25-729 Kielce, ul. Urzędnicza 9 A/44. 
Grzegorz Jankowski, uczeń lat 14. Posiada mi¬ 
krokomputer ASI-009. dwa napędy dyskowe 3,5", 
monitor OMT. drukarkę firmy Enterprise, karty 
OGA. Hercules. Pragnie nawiązać kontakt w celu 
wymiany doświadczeń oraz oprogramowania. Ad¬ 
res: 05-805 Oirębusy. ul. Podleśna 15. 

Adrian Pełka, uczeń lal 16. Posiada Commodore 
C-64. magnetofon, dwa joysticki i około 600 pro¬ 
gramów i gier. Zainteresowania; informatyka, tech¬ 
nika video. Proponuie wymianę programów. Adres; 
41-907 Bytom. ul. A. Piątka 25a/6. 

Tomasz Mieszczak, uczeń 1p lat. Posiada mikro¬ 
komputer Atari 800 XL ze 'stacją dysków LDW 
2000. Proponuje wymianę oprogramowania, litera¬ 
tury i opisów programów. Adres; 61-626 Poznań, 
ul. Winigrady 129. 

Wszystkich posiadaczy japońskiego mikrokompu¬ 
tera .,M5', firmy SORD COMPUTER Co. prosi o 
kontakt Edward Mich zamieszkały 80-262 Gdańsk 
6. ul. Dekerta 3/3 


Jacek Kasperczyk, uczeń LO. lal 18. Posiada 
CPC 6128. Oczekuje wymiany oprogramowania i 
doświadczeń z innymi posiadaczami tego mikro¬ 
komputera. Adres: 28-400 Pińczów, ul. Bat. 


Chłopskich 119. 

Piotr Wojciechowski, inżynier 37 lal. Mikrokom¬ 
puter Atari 130 XE stacja dysków. Posiada włas¬ 
ne programy zawodowe jak sieci cieplne, straty 
ciepła, wymienniki ciepła, wentylacja i inne. Całość 
ułożona w mini poradnik dla inżyniera instalatora. 
Nawiąże współpracę, wymianę programów. Adres: 
02-319 Warszawą, ul. Kopińska 34a/12. 

Mirosław Walasik prosi o kontaw osoDy posiadają¬ 
ce mikrokomputer Tl 99/4A. Adres: 34-400 Nowy 
Targ. Al. 1000-leda 30/10. 

Marek Kalicki, lat 11. Posiada mikrokomputer w 
systemie MSX-SONY HIT-BIT 64 KB. magnetofon i 
joystick oraz oprogramowanie. Adres: 43-300 Biel¬ 
sko-Biała, ul. Broniewskiego 4/118. 

Marlena Cichocka, lat 12. Posiada Commodore 
64 oraz około 700 programów, w tym 100 użytko¬ 
wych. Proponuje wymianę oprogramowania. Ad¬ 
res; 82-500 Kwidzyn, ul. Firxlera 8/37. 

Tomasz Gabaryslak, lal 13. Komputer Commodo¬ 
re C-64, monitor Neptun, magnetofon MTR oraz 
dwa joysticki. Oprogramowanie: programy mu^- 
czne, użytkowe oraz sporo gier. Zainteresowania; 
informatyka i sport. Proponuje wymianę iiteratury 
oraz doświadczeń. Adres: 66-400 Gorzów WIkp., 
ul. Pułaskiego 3a/11. 

Yioletta Koch, uczennica LO — lat 16. Posiada 
Atari 800 XL magnetofon XC 12 oraz stację dysków 
LDW Super 2000. Oprogramowanie: około 500 
gier i programów użytkowych. Proponuje wymianę 
programów z użytkownikami Atari. Adres: 61-673 
Poznań. Oś. Kraju Rad 7 ,H"/72. 

Zbigniew PrzeorskI, pracownik umysłowy. Posia¬ 
da nielypowy komputer CASIO FP 1000 pracujący 
pod systemem CP/M 2.2. Prosi o pomoc w zdoby¬ 
ciu programów użytkowych, głównie bazy danych I 
arkuszy kalkulacyjnych. Nawiąże kontakt z posia¬ 
daczami tego komputera. Adres: Warszawa, ul. Ka- 
zury 13 m 3. 


JOYSTICK - BŁAHA WAŻNA RZECZ 


(mini test użytkowników) 


Czytelnicy Bajtka z pewnoś¬ 
cią kupują go obok magentofo- 
nu lub stacji dysków, jako dru¬ 
gie urządzenie peryferyjne. 

Wybór joysticka, chociaż nie należy do rwjpoważniej- 
szych decyzji finansowych, nie jest zupełnie dowolny. 
Fałszywy oznacza konieczność ponownego zakupu, 
często już po miesiącu — dwóch. 

Redakqa nasza otrzymała przed pół rokiem od pana 
Tadeusza Trojaka z Lodzi kilka sztuk produkowanych 
przez niego joysticków MATT. Cztery z nich przeszły 
generalną „próbę ognia" u naszych kolegów przygoto- 
v/ujących książkę o grach komputerowych, a także w 
samej redakCfi. 

Pierwsze opinie wszystkich użytkowników byty zgo¬ 
dne — MATT na tle ii.nych konstrukcji krajowych pre¬ 
zentuje się bardzo dobrze. Wyposażony jest m.m. w 
elegancko wykonaną wtyczkę pasującą do najpopular¬ 
niejszych w kraju mikrokomputerów — Alan. Commo¬ 
dore. Amstrad. iip. Znakomicie spełniają swoją rolę 
umieszczone na spodzie joysticka przyssawki. Nawet 
podczas tak trudnych prób. jak pokonywanie kolejnych 
etapów „Commando*. MATT nie wymaga podtrzymy¬ 
wania drugą ręką. czego nie da się powiedzieć np. o 
równolegle używanych w redakqi angielskich joystic¬ 
kach. 

Opinie po kliku tygodniach użytkowana MATT-ów 
byty również dość zgodne. Wszystkie egzemplarze 
pracowały bez zarzutu. Narzekali jednak ich użytkow¬ 
nicy na dość oporną pracę joysticka — po pół godzmie 
gry. szczególnie w różne .zręcznościówki" ręka za¬ 
czyna juz porządnie boleć. Przyoatby się również przy¬ 
cisk „autolire" — wzdychaS wielbiciele jwzycji typu 

.kill air. 

Sześć miesięcy egzaminu MATT-y zdały na .do¬ 
brze". Pierwszy z nich odmówi! posłuszeństwa dopie¬ 
ro na tydzień przed zakończeniem j>róby — podczas 
wystawy poddał się przy grupowym korzystaniu z 
.Winter Games". Pozostałe służą nam dalej i dotych¬ 
czasowi ich użytkownicy nie zmienili ich na zachodnie. 


Podsumowując. MATT na naszym pustym rynku zło¬ 
tówkowym (gdzie nie wspominając) jest interesującą 
propozycją dla użytkownika komputera domowego. 
Chociaż bardziej polecałbym go tym, którzy używają 
joysticka w programach użytkowych, np. graficznych, 
również i fani gier mają chyba z mego pociechę, cho¬ 
ciażby ze względu na trwałość konstrukcji. Producent, 
zresztą, zapowiada liczne udoskonalenia — wprowa¬ 
dzenie mikroswitch’y. wyposażenie MATT-a w .autoti- 
re”. Te zapowiedzi cieszą. Oby tylko nie wzrosła zbyt¬ 
nio cena. Przy dzisiejszym czamorynkowym kursie do¬ 
lara właśnie cena. przynajmniej w moim przypadku, za¬ 
decydowałaby o tym. by zamiast do .Pewexu" wybrać 
się do CSH. gdzie sprzedawane są MATT-y. 

Marcin Lutomski 
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O występkach komputerowych 
hackersów włamujących się za 
pośrednictwem swej własnej kla¬ 
wiatury, modemu i telefonu do sie¬ 
ci informatycznej wielkich korpo¬ 
racji, ministerstw, czy systemów 
obronnych napisano już całe 
tomy. 

w Stanach Zjednoczonych i Republice Federalnej Nie¬ 
miec grasuje podobno wyspecjalizowane gangi elektroni¬ 
cznych przestępców, którzy na zlecenie .poprawiają" ban¬ 
kowe konta, kradną zakodowane w sztucznej pamięci ma¬ 
szyn bezcenne dane. czy wszczepiają do sieo wskazanej 
tirmy programowego wirusa niszczącego stopniowo zma- 
gaz^owane zasoby informacji. W Nowym Jorku, Sztok¬ 
holmie, Bertinie Zachodnim i Hanowerze powstały specjal¬ 
nie wydzielone oddziafy policyjne oo zwalczania gangster- 
stwa komputerowego i informatycznego chuligaństwa. 

A wszystko zaczyna się i kończy na prostej operacji wej¬ 
ścia do pamięci obcego komputera. Fto uzyskaniu telefoni¬ 
cznego połączenia na ekranie monitora etektronicznego 
poszuluwacza przygód pojawia się prośba systemu, do 
którego właśnie puka, o podanie kodu. Jeśli słowo — 
klucz, lub układ hczbowo-liierowy jest zgodny z tym. co 
zaprogramowano w matrycy bezpieczeństwa urządzenia, 
nie broni ono dostępu do swego wnętrza. Tak jak. najlep¬ 
szy sejf. którego szyfrową kombinację złamali włamywa¬ 
cze 

Jeszcze kilka lat temu za Atlantykiem rwaiK> włosy z gło¬ 


wy. wszak specjalnie projektowane ogromne siea inlor- 
matyczne za miliony dolarów nie mogły być bezpieczne, 
skoro nawet dobrze wyszkoleni amatorzy po miesiącach 
zabaw w kotka i myszkę, metodą prób i błędów, mogli do¬ 
brać się do ich wnętrza A przecież każdy bank danych nie 
jest czymś, co zakopuje się w z«mi na lata Musi działać, 
dla osób uprawnionych do posługiwania się nim powinien 
być otwarty w każdej chwili. Nie byo więc sensu tworzenie 
sujtórkodów. skomplikowanych pułapek szyfrowych, sko¬ 
ro jedną z cech chronionego wnętrza powinna być całko 
wita funkcjonalność. 

Na razie poradzorto sobie sporządzając w pamięci 
bronionego komputera dokładną listę osób uprawnio¬ 
nych do korzystania z przechowywanych w nim mlor- 
ińacji wraz z ich numerami telefonów. Jeśli od urzą¬ 
dzenia żądano informacji podając swoje dane i kod 
wejściowy, oddzwoniafo ono samo do proszącej o 
wstęp osoby, sprawdzając nazwisko, numer telefonu i 
hastó. Ten wariant ochronny zwany za Alaintykiem Cal- 
Iback Security System ma tez swojC oczywiste wady, 
ale przede wszystkim jest dość kosztowny, a opnócz 
tego każda zmiana personelu wymaga odpowiednich 
przeróbek programu. W sumie amerykańscy ekspero 
oceniają go niezbyt ^soko. jako .zapchaj dziurę’ w 
darmatycznej sytuacji. 

Ale wszystko zmieni się prawdopodobnie jeszcze w 
najbliższych miesiącach. Aż trzy specjalistyczne firmy 
w Stanach Zjednoczonych w jednakowy sposób pode¬ 
szły do zagadnienia podsuwając zaniepokojnym sze¬ 
fom korporacji, generałom i bankowcom proste i, jak 
się je reklamuje, zupełnie niezawodne rozwiązania. 

Wszystko zaczęło się od arcyskomplikowanych za¬ 
mków elektronicznych, broniących dostępu do najści¬ 
ślej strzeżonych w Ameryce pomieszczeń, skonstruo¬ 
wanych jednak tak, aby ci ujtóważneni me mieli spec¬ 
jalnych kłopotów z wejściem. Jak podaje Richard Em- 
sberger — reporter .Newsweeka’ — takie urządzenia 
działają juz w USA i w innych wysokouprzemysłowto- 
nych krajach od lal. Prawdopodobnie właśnie v/ taki 
sposób wchodzi się do niezw^łej wagi pomieszczenia 
na 7 piętrze Departamentu Stanu w Waszyngtonie, 
gdzie zainstalowano mechanizmy . gorącej linii’, łą¬ 
cznej amerykańską stolicę z an^gicznym centrum 
uniknięcia ryzyka przypadkowej wojny jądrowej w Mo¬ 
skwie. Tylko kilka osób może przejść przez dwoje pan¬ 
cernych drzwi z przemyślną śluzą. Należy przypusz¬ 
czać. że tajemny sezam otwiera się tylko wtedy, gdy 
do specjalnego czujnika wędruje tych kilka powołanych 
palców wskazujących. 

Jedną z biometrycznych cech zupełnie indywidual¬ 
nych i niepowtarzalnych dla każdego człowieka są od¬ 
ciski jego palców. Linie papilarne są tym jedynym klu¬ 


czem otwierającym najdoskonalsze amerykańskie 
zamki. Ale cały układ drzwiowy do lej pory byt zbyt 
wielki i ciężki, aby mógł służyć również w technice 
komputerowej. Nie mówiąc już o innych systemach 
działających na zasadń porównywania kształtu dłoni z 
zapamiętaną matrycą. 

W tym świetle nowości trzech producentów syste¬ 
mów bezpieczeństwa — firmy ldentix z Pało Alio w Ka¬ 
lifornii, przedsiębiorstwa ThumbScan z Oakbrook Ter- 
race w stanie Illinois i spółki Fingermatix z North White 
Plains w Nowym Jorku, mają wielkie szanse dokonania 
przewrotu na dobre odizoiowującego hackersów od ła¬ 
komych dla nich kasków. 

Randy Powler — szef i założyciel ldentixu poleca 
czujnik o nazwie Touch Safe me większy od... typowej 
.myszy* pr^ączonej do komputerowej klawiatury. To 
właśnie jest 6m zamek zabezpieczający wnętrze dowol¬ 
nego banku danych przed włamaniem. Aby dostać się 
do iniormacji z zastrzeżonego systemu wystarczy od¬ 
cisnąć jeden z naszych palców (niekoniecznie wskazu¬ 
jący) na maleńskiej szybce sensora Touch Safe. Jeśli 
odcisk tego właśnie palca, należącego do tego właśnie 
człowieka został wstępnie zapamiętany przez czujnik, 
jego właściciel ma wolną drogę, system zabezpiecza¬ 
jący zostanie odblokowany. Jeśli porównanie matema¬ 
tycznego modelu — matrycy odcisku osoby uprav/nio- 
nej z limami odbitymi na szybce (dane z szybki rozkła¬ 
dane są na 250 tysięcy informacji) wyjaadnie negatyw¬ 
nie. natychmiast uruchamiany jest asrm dla całego 
układu. Test prawdy trwa dwie sekundy. Touch Safe 
oferowany jest za 1800 dolarów 

W podobny sposób przedstawia czuinik firmy 
ThumbScan jej rzecznik—Bob Glowienke. Za len pro¬ 
dukt nabywcy będą musieli zapłacić jednak tytko 1000 
dolarów. Zaś inteligentny klucz palcowy wytwórni no¬ 
wojorskiej opatrzony długą nazwą Ridge Reader Mint 
11 kosztuje 1500 dolarów. 

Producenci zasirzegają jednak, iż ceny dotyczą jedy¬ 
nie samyt^i czujników, do których nale^ zamówić rów¬ 
nież programy sprzęgające ich działanie z siecią chro¬ 
nionego systemu. 

Randy Powler liczy na poważne i liczne kontrakty. 
Tego samego spodziewają się przedstawiciele dwóch 
innych lirm. A w najbliższej przyszłości obiecują coś 
jeszcze doskonalszego — czujniki głosowe, których 
nie oszuka nawet precyzyjny magnetofon. No cóż. 
nam wypada jedynie kibicować. 

Wojciech Łuczak 


KLUB NAD RENEM 



W dniach 23.07—30.07 
przebywaliśmy na obozie 
harcerskim w Bremen, w 
RFN. Gościliśmy u Pfadfin- 
derow (odpowiednik harce¬ 
rzy). Odwiedziliśmy wtedy 
Pfadfinder Computer Ciub, 
mający swoją siedzibę przy 
zakładach energetycznych 
UNH. Pragnąc dowiedzieć 
się czegoś na temat działal¬ 
ności tego klubu (będącego 
odpowiednikiem klubu, któ¬ 
rego członkami jesteśmy) 
poprosiliśmy o rozmowę 
Rainera Nalazka, szefa 
Pfadfinderów w landzie Bre¬ 
men. 

— Jak powstaf Uub? 

— Idea powstań a klubu pochodzi z Polski. 
Latem i987 roku przebywaliśmy m m na 
otiozie w PerKozic. na Mazurach, zobaczyliś¬ 
my lam działający wasz klub (HarcBail — dop. 
J.L.). Widzieismy rćwnłeż jaką popularnością 
cieszy się działalność HarcBajlu w Domu Har¬ 
cerza w Gdańsku. Po powrocie do kra^u 
slwierdzsiśmy: .Dlaczego oni mają. a my 
me’" 

Na począlek/ialezalo postarać się o sprzęt I 
pomieszczenie dla klubu Pladfirtderzy są or¬ 
ganizacją całkowicie społeczną, czerpiącą fi¬ 
nanse ze składek członkowskich, wspomaga¬ 
ną niekiedy przez senatora ds. młodzieży. Za¬ 
częliśmy poszukiwać sponsora. Jeden z na- 
sz^^ przyjactół pracował w lirme SIEMES. 

zdziwiony :deą założenia klubu kornputc- 
rowego Plaotinderów. aie poparł ją Dzięki 
memu. 00 wielu perypeliach, oirzymaliśrny z 
SlEMENSa 4 zestawy mikrokomputerów' PC- 
SlEMENS z oprogramowaniem (GEM, BA¬ 
SIC. progiem giaflczny, kalkulacyjny, edytor 
testu, baza danych, programy narzędziowe). 
Zaczęliśmy wówczas szukać odpowiedniego 
pomieszczenia Po obejrzeniu harcówek 
siwieidziliśmy. ze żadna nie nadaje się na lo¬ 
kal klubowy. Brak było odpowiednich zabez¬ 
pieczeń I zsplecza. W czasie rozmowy z kole¬ 
gą z UNH okazało się. że na lereme zakładu 


znajduje się wolne pomieszczenie znakomi¬ 
cie nadające srę na klub komputerowy. W 
sierpniu 1987 roku wprowadafiśmy się tam 

Nie płacimy tutaj za energie elektryczną ani 
żadnego czynszu. UNH pomaga ponadio da¬ 
jąc papier do drukareir 'tp 

— Kto prowadzi zaśe^ w klubla? 

— Od sierpnia tS«7 roku rozpoczęliśmy 
szkolenie insirukiorów. Była to grupa star¬ 
szych Pfadłmderów (20—24 'ataj. W UNH. 

dzie również pracuję, jestem kierownikiem. 

50 elektroników. 47 zgłosiło chęć 
społecznej pr=cy w klub'e. 

— Jak wygibdel nabór członków? Czy 
mogą nimi być t^ko Pfadfinderzy? 

— Cztonkaifti kluou mogą być wszyscy chęt¬ 
ni. Tyle tylko, że Pladwiderzy me płacą za 
kursy, a Inm za 8 tygodniowy kurs płacą 18 
marek. 

Po 2 stycznia 1988 roku. kiedy to nastąpiło 
uroczyste otwarcie klubu z udziałem przed¬ 
stawicieli SlEMENSa^ UNH oraz senatora ds. 
młodzieży, zamieściliśmy w prasie ogłosze¬ 
nie Zgłosiło sę 237 chętnych. Niestety, nie 
moghsmy tylu przyjąć. Przyjęliśmy 48 ceób. 
Pracują one od poniedziałku do piątku w 8-ło 
osobowych grupach pod kierownictwem na¬ 
szych instruktorów. Szkolenie dotyczy ogól¬ 
nej obsługi komputerów, prawidłowego po¬ 
sługiwania się oprzyrządowaniem (drukaiką. 
plolerem, dyskietkami). Uczestnicy kursów 
zwiedąąi centrum komputerowe w UNH. za¬ 
poznając się z praktycznyrn wykorzystaniem 
Komputerów. Po zakończeniu kursu uczestni¬ 
cy doslają dyplomy. Jedynym warunkiem ich 
otrzymania jest uczestniczenie w co najmniej 
połowie zajęć klubu. 

Wielu .cywilnych* uczeslntków naszych 
kursów wstano potem do organizacji Pfadim- 
derów. 

Po wakacjach, jesiemą^ pojedziemy do cen- 
irum komjMiterowego SlEMENSa. Chcemy 
również być obecni na CeBicie w Hanowerze, 
aby móc zapoznać się z najnowszymi osiąg¬ 
nięciami tccnnicznymi w dziedzinie produkcji i 
oprogramowania komputerćw Na CeBicie 
ismieje tzw. sala walki komputerowej, gdzie 
różne lirmy i kluby prezentują to. co mają naj¬ 
lepszego. Właśnie tam chcemy się pokazsć. 

— Czy nawlązallicla fuź móia kontakty z 
Innymi klubami? 

— Jeszcze me Jesteśmy dopero w stadium 
organizacji ChcieHbyśnny uporządkować na 
razie własne podwórko. Prawdopodobnie do¬ 
staniemy jeszcze cztery nowe komputery 
SlEMENSa W lęi chwili prowadzone są roz¬ 
mowy z SIEMENSem. uczymy na ich pomyś¬ 
lny efekt. Mamy w lej Chwili trzech udziałow¬ 


ców. Są to SIEMENS, UNH, no i my. Uczymy 
na pomoc senatu miesiaego. Wspólnymi siła¬ 
mi chcemy doprowadzić do tego. aby jak naj¬ 
więcej młodzieży w lak najlepszych warun¬ 
kach korzystało z moZbwości klubu. 

Na przyszłość: mamy na Oku pewien kliA 
komputerowy w Bertinie Zachodnim oraz klub 
w Hamburgu, dziatajęcy pod egidą DJH 
(sełMontska rmodz^zowe — dop. J.Ł.). Nasz 
klub odwiedzają grupy podobne do waszej, 
goszczące u Pracfinderów. Byty lu już dwie 

r oy z Polski Głównym celem jesi co praw- 
zawsze zwsdzanie zakładów UNH. lecz 
gdy powiemy, ze przy UNH działa klub kom¬ 
puterowy, wszyscy chcą go zobaczyć. Pod 
koniec sierpnia oczekujemy wizy^ grupy z 
Francji, a we wrześniu grup z Rygi i z Rosto- 
ku. 

— Czy możesz ml powiedzieć, lak wyglą¬ 
da nauka Iniormafykl w waszych szko¬ 
łach? 

— Owszem, w szkołach ogólnych nauka in¬ 
formatyki zaczyna się w dziesiątej klasie Pro¬ 
wadzi je specjalnie szkolony pracownik, uw. 
asystent mtormatyki. MIodziez uczy się języ¬ 
ków programowania, np PASCAL-a 
— Czy wiesz coś na tamat komputeryzac¬ 
ji w Potaca? 

— W naszej telewizji po ostatnim Baltcorme 
(tak. tak. tym w (Gdańsku — dop. J.Ł.) dużo 
mówiło się o komputerach w Polsce. Przeraził 
mnie szczególnie łąki bezkarnego kopiowania 
I sprzedawania pirackich kopii programów. 


Bardzo na to wszyscy zwracają uwagę, gdyż 
takie praktyki to po prostu kradziez. niousza- 
nowanie cudzej pracy. U nas leż co jirawda są 
p«aci. są oni na całym świccie. lecz nio dzia- 
jagą tak otwarcie, mają przectwko sobie prawo 
i za swoją działalność ^ surowo karani NiC 
rozumiem, dlaczego w Polsce te sprawy nie 
są ujęte w odpowiednie przepisy. 

Nie podobało mi się również częste wyko¬ 
rzystanie komputerów do gier i to najczęscie| 
tyjju .Ckj. zabij' Komputer może b^ wyko¬ 
rzystany do złych cetów. np. do gier porno¬ 
graficznych, równie niebezjkecznych jak filmy 
czy gazety, albo do celów politycznych, np 
symulacje wojny NATO z Układem Warszaw¬ 
skim Talae programy mogą uwarunkować 
sposób myślenia młodzieży w kierunku zało¬ 
żonym przez twórców. 

Podobało mi się natomiast w Polsce po¬ 
wszechne zainteresowanie komputerami 
wśród miodz eZy. Ua to na pewno w orzyszło- 
ści dobre etekiy w postaci acznej rzeszy zdol¬ 
nych mformatyków i elektroników. 

— Sardecznie dziwujemy za rozmową I 
tyczymy pomyślnego rozwoju klubu. 

— Dziękuję 

rozmawiali: 
Jarosław Łojewski 
i Piotr Kuzora 

członkowie UKK HarcBajł. 
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Cześć, Maluchy! 

święta Bożego Narodzenia to 
dla wszystkich polskich dzieci 
przede wszystkim choinka. A z 
choinką kojarzą się dwa wspa¬ 
niale momenty, ten uroczysty, 
gdy znajdujemy pod nią pre¬ 
zenty i ten nie tak uroczysty ale 
równie radosny, gdy ją ubiera¬ 
my. 

Program, klóry napiszemy dzisiaj w LOGO może być 
prezentem dla malej siostry lub brata ucz^ch s>ę właśnie 
liter. Myślę, ie okaże się przydatny w trakcie zgłębiania tej 
trudnej Wiedzy. Jeśli nie macie rodzeństwa w odpowied- 
mm wieku, wćwczas—wierzę v/ to głęboko — znajdziecie 
wśród rodziny, sęsiadów czy znajomych kandydata, na 
którym wypróbujecie ten program nawet wbrew jego woli. 

Pomysł programu test następujący: na ekranie ukazuje 
się titera. grajęcy ma znaleić na klawiaturze takę sarnę lite¬ 
rę i wcisnęć klawisz, na którym jest ona umieszczona 
Każda poprawna odpowiedź jiowoduje zaw;eszenie na 
choince jednej bombki 

W pierwszej kolejności musimy postaiać się o drzewko. 
Rozpoczniemy od jaojedyńczej gałęzki. Na drzewku znaj¬ 
duję się zwykle gaięzki o różnej długości, musimy więc w 
ton sposób skonstruować definicję, aby długość uzależ¬ 
niona była od jakiegoś parametru. Jeżeli gęstość igieł po- 
rastajęcych gatęzki będzie stała, długość będzie jednozna¬ 
cznie zwięzana z liczbę igieł. 

Spójrzmy teraz na rtaszę definicję. 


to gślśzka 

repeat tigly Ird !0 It 30 ic E i'.. E rt 
30 td 10 rt :C *d B bż. 3 It ZOl 
'eaeat :ięly Ebk ZOl 
erd 


żółw jiorusza się do przodu rysujęc gałęzkę. Co dziesięć 
kroków odwraca się w prawo lub w tewo o 30 stopni i rysu¬ 
je igłę o długości 8 kroków a następnie cola się po włas¬ 
nym śladzie i powraca do jMprzedniego kierunku. Para¬ 
metr Igły określa ile razy żółw powtórzyć ma sekwencję: 
prosto, lewa igła. prosto, prawa tgła. Wynika więc z tego. 
że na rtaszej gaięzce igieł będzie dokładnie dwukrotnie 
więcej niż wynosi parametr Igły. 

Po dojściu do końca gałęzki żółw cofa się — również po 
własnym śladzie — do nasady gatęzki Robi to także eta¬ 
pami j>o 20 kroków a liczbę tych etajiów określa parametr 
Igły 

Możemy teraz sprawdzić, jak wyględa nasza gałęzka. 
Wystarczy rtapisać 

CS galęzka 

I żółw pracowicie nam ję narysuje. Jeśli coś nie będzie 
Wam odpowiadać, możecie to bez trudu zmienić, na przy¬ 
kład długość, czy odstęp igieł. Oczywiście będziecie to 
mogli zmienić także już j>o napisaniu caiej gry. 

Skoro umiemy już rysować gałęzkę sjiróbujmy naryso¬ 
wać całe drzewo. 

to i!rzeH<o 
lale 'igl/ 5 

rspsat b Ifd 2? It 75 gdlazr.a :igl/ rt 
75 fd 20 rt 75 ęaiazi.a :igly It 75 ła*.e 
"igły ligly - 1] 

•d 20 rt l 

'epeat 5 Cbk ZśO ‘i 2b0 !t 0.51 
Tt 1.5 
end 

Rysowane rozpoczniemy od dołu. a więc od najdłuż¬ 
szych gałęzi. Przyjmijmy, dla p;erwszych gałęzi parametr 
igły będzie wynosił 6. Teraz możemy już rysować drzewo. 
Zauważcie, że zasada rysowania drzewa jest bard^ podo- 
brta do rysowania gałązki Żółw maszeruje do przodu 20 
kroków, odwraca w lewo o 75 stopni I rysuje gałęzkę. na¬ 
stępnie w prawo o 75 stopni, znowu do jHzodu i lewa ga- 
łęzka. Różnica jiolega na tym, że dodatkowo za każdym 
razem parametr igły zmniejszany jest o wartość jeden. 

Druga część dclinicji to pień drzewa — szerszy u góry a 
węższy u dołu. Rysujemy go przy pomocy pięau linii zbie- 
gajęcych się na czubku drzewa. 

Teraz możemy już przystępić do konstruowania samej 
flły 


to gra 

C3 ct 
bk 100 
It 90 

fi 300 bk óCO fd 300 
ri 90 

drjSMito 

pu 

rt 155 fd 20 

repea: b ipytasie rt 25 bo-iika '.t 23 -c 
4C] 

bk 230 
't 50 fd •łO 

rsosat 3 -Dytanis 25 bcaaka r; 23 fd 
iO] 
snj 


Najpierw rysujemy podłogę i drzewko a następnie za¬ 
czyna się zasadnicza część gry Jest ona w programie j>o- 
dzielorta na dwie bardzo podobne części Jest to j>o prostu 
zawieszanie bombek na dwóch stronach chomki. Zasada 
działania programu jest jtrosta Komputer przystępuje do 


procedury jjytanie. po jej wykonaniu żółw rysuje bombkę i 
ustawia się w jiozycj) do rysowania kolejnej bombki. Za¬ 
uważmy jednak, że podczas definiowania procedury gry 
korzystaliśmy z dwóch niezrtanych komputerowi procedur, 
bombka i pytanie. 

Z procedurę bombka nie ma rtajmniejszego kłojiotu. 
Może ona wyględać rta przykład lak: 

to boebka 

pd 

fd 10 It 75 
rapeat 12 ita 5 rt 30] 

't 75 bk 10 
pu 
ead 

Nieco trudniejsza jest konstrukcja procedury jjytame 

to pytariie 
;t 

■ake 'liczba rar-doa 2ó 
»ake "liczba :ł;czba * 97 
fale "ział char tiiczoa 
pr ::nak pr " 

•ake 'klałłisz r: 

;f net tklahis: = tz.tak Ip/tanie] 
end 

Najpierw losowana jest liczba od O do 25. następnie do¬ 
dawana do niej jest wartość 97. W ten sposOD uzyskujemy 
jednę z liczb odjMwiadajęcych w kodzie ASCII małym Irte- 
rdfin Litera odpowiadajęca wyloso'w3nej wartości przypo¬ 
rządkowana zostaje zmiennej znak. i wydrukowana na 
ekranie. Następnie komputer oczekuje, jaki klawisz zosta¬ 
nie naciśnięty. Jeśli zostanie naciśnięty klawisz różny od 
tego, któremu od|>owiada wylosowany znak procedura py¬ 
tanie wywoływane jest od poczętku. Zwróćcie uwagę na 
to. że procedura ta może być jiowiarzana bardzo wiele 
razy. Dopiero wciśnięcie odpowiedniego klawisza spowo¬ 
duje zakończenie wykonywania procedury i przejście do 
następnej, czyli rysowania bombki (w procedurze gra). 

ktfego ubierania choinki, także tej prawdziwej zyczy 
Wam 

Romek 
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Ciekawe ilu ludzi zapalając wieczorem światło w swoim domu 
zastanawia się, jaki procent energii wytworzonej przez spalafący 
się w elektrowniach węgiel lub spadającą na turbiny wodę trafia 
do żarówki jego lampy? Z pewnością coraz więcej, w miarę jak 
wzrasta nasz niepokój związany z zagrożeniami ekologicznymi, z 
deficyteiti paliw, z coraz bardziej niepokojącymi perspektywami 
przyszłości rodzimej energetyki. 


A jest się nad czym zastanawiać. Katdy kto 
zetknę! się w szkole z prawem Ohma i poznał 
jMzór na ciepło Joule a — Lenza wie, że podob¬ 
nie jak to ma miejsce w żarówce tak i w każdym 
przewodzie płynęcy pręd powoduje wydziela¬ 
nie się ciepła — tym mniejszego Im mniejszy 
jest of^r materiału, z ktorego wykonano prze¬ 
wód Nawet jednak w przypadku miedzianych 
czy stalowych linii przesyłowych przekazywa¬ 
nie energii elektrycznej na duże odległości po¬ 
woduje „grzanie powietrza” w wielkiej skali. 
Ponad połowa energii dawanej przez generato¬ 
ry elektrowni znika nim dotrze do naszych do¬ 
mów. 

Od poczętków rozwoju energetyki zajmujęcy 
się nlę ludzie marzyli o tym, by „oszukać” natu¬ 


rę, zabrać jej ten dotychczas płacony haracz. 
Marzę także elektronicy — o „kościach" nie wy- 
dzielajęcych ciepła, wreszcie specjaliści z dzie¬ 
dziny transportu — o pocięgach na magnetycz¬ 
nych poduszkach pędzęcych z szybkościę sa- 
mołoUi. I właśnie u progu tego roku okazało 
się że marzenie to wkrótce stać się może rze- 
czywistościę. Kto wie, czy za kllkadzlesięt lat 
data 1987 nie będzie kojarzyła się z poczętkiem 
„ery nadprzewodnictwa”. 

Zjawisko nadprzewodnictwa, występujęce w 
wielu metalach i stopach, odkryte zostało już 
przed kilkudziesięciu laty — w 1911 roku Aż do 
końca lat pięćdzieslętych fenomen przepływu 
prędu elektrycznego przez materiał bez oporu 
nie był praktycznie wykorzystywany. Było to 


spowodowane warunkami występowania nad¬ 
przewodnictwa — mieliśmy z nim do czynienia 
tylko w ekstremalnie niskich temperaturach, 
bliskich 0 Kalvinów (minus 273 st.C.) Chociaż 
w oparciu o oslęgnięcia mechaniki kwantowej 
udało się teoretycznie opisać dość dokładnie 
mechanizm nadprzewodnictwa nie sposób jest 
przewidzieć czy może ono występić także przy 
wyższych temperaturach Pozostaje metoda 
.„prób i błędów”. I właśnie tę metodę u progu 
1987 roku dokonano przełomu, o którym mówi 
się dziś nie tylko w światku fizyków. 

Alex Muller i Georg Bednarz — pracownicy 
laboratorium IBM (tak tego samego!) w Rus- 
chllkon koło Zurichu badali izolatory ceramiki 
powstałe na bazie tlenków baru I miedzi, Zaj¬ 
mujęcy się tymi samymi materiałami chemicy 
francuscy odkryli wcześniej, że maję one wiele 
cech wspólnych z metalami Muller I Bednarz 
idęc tym tropem postanowili zbadać, czy nie 
dałoby się wywołać w nich efektu nadprzewod¬ 
nictwa Oalo się i to w temperaturze minus 243 
stopnie — o 20 większej niż w dotychczas ba¬ 
danych materiałach! 

Rozpoczęł się prawdziwy wyścig. Niemal co 
kilka dni prasa popularna Stanów Zjednoczo¬ 
nych, Zwlęzku Radzieckiego i innych krajów 
meldowały o pokonaniu kolejnej granicy wy¬ 
stępowania nadprzewodnictwa — minus 200, 
190 stopni, 180 stopni Te ostatnie rezultaty 
miały już wymiar nie tylko naukowy ponieważ 
temperaturę minus 190 stopni otrzymać można 
stosunkowo łatwo przy pomocy ciekłego azo- 
tu-gazu powszechnego i znacznie tańszego od 
helu. dotychczas używanego do H(.htiidzania nad¬ 
przewodzących próbek Kiedy 18 marca 1987 r 
w nowojorskim „Miltonie” zwołano konferencję 
naukowę na temat nadprzewodnictwa salę 
obrad szturmował już od rana kilkutysięczny 
tłum fizyków Gdy podczas obrad tej konferen¬ 
cji Bertram Batlogg z Laboratorium Bella wyjęl 
z kieszeni kawałek giętkiej taśmy obwieszcza- 
jęcej „nasze życie się zmieniło" poważni nau¬ 
kowcy wiwatowali jak nastolatki na koncercie 
„Eurojje” Ta taSma to byl właśnie materiał nad- 
przewodzęcy w temperaturze clek*cgo azotu. 

Mała grudka ceramicznego spieku lewitujęca 
w powietrzu nad magnesem — taki pokaz zoba¬ 
czyć było można I w warszawskim instytucie 
Fizyki PAN. Prezentujęcy ję dr Piotr Przysłuj}- 
skl więczył się do światowego wyścigu fizyków 
I nawet przez kilka dni przewodził stawce tych, 
którzy opracowali „najcieplejszy” nadprzewod¬ 
nik. Gra idzie zresztę nie tylko o wynik. Trzeba 
mieć materiał o jak najwyższc-j temperaturze kryty¬ 
cznej by w w ciekłym azocie utrzymać nadprzewo- 
dzęce właścrw..4ci materiału nawet wówczas, gdy 
przepuści się przez niego stosunkowo duży pręd. 

Rok 1987 uc zeń prac'4ęcy nad nadprzewodnikami 
wysolf.‘temporaturjwymi zamknęli nie lada sukce¬ 
sem — N«tjrodę Nobla dla Mullera i Bcdnoiza. Kbtej- 
ny rok nie przyniósł już tak spuldakuiamych sukce¬ 
sów, Fiękoid nęjwyż temptiratury dzierży dziś la¬ 
boratorium San w KaJifomil — minus 140 stC 
Jednak Paul Grant pracownik tego laboratorium op- 
tymiatyc.-nie przewiduje, Że już wtrrilc? dzięki wyrafi- 
nuwanuj technologii tw rzt>nia cłenkir h warstw 
nadprzewodzęcych o^łęgnlęty zostanie znacznie lep¬ 
szy rezultat — około minus 73 sLC. A stęd już tylko 
krok do mikrjeiek^.rnlki nadprzewodników. Już dziś 
Jn;>c!rv zycy opaitowaR punric produkt pamięci 
nadprz wrodzących o pojemności 1 Kb Mcżc to I nie¬ 
wiele w z'-itTwł'łreu z moiliwc-icżami „koscT’ krze¬ 
mowych, jednak tr.yłyr /jno pamięci nawet te wyko¬ 
nane z ar,z-nlai galu, nie mogę się nawet rc-wnac z 
nadprzewodzącymi pod względi^m szybkości d'ialH- 
nla 

Perspektywa stworzenia zupełnie nowej generacji 
komputerrw z jednej I zniKznegn iibnłżWi zapo¬ 
trzebowania świote na energię eMd.-onicznę oraz za- 
stoscwaiśa z pomocę nadprzuwodnflców syntezy ter- 
mojędrowej z drugiej itrjny — to już chcićby zapo¬ 
wiada, jak, ep-oka nadprzi{!W'/dnictwa" u progu której 
stoimy rożna bę(*zię od dnia dzMejszegr-. 
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Grzegorz Onichtmowski 







